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ABSTRACT 

An interactive graphical interface helps intelligent computer-assisted instruction 
systems, because many applications can be well represented by graphic objects. One 
approach is a facility whereby a teacher constructing a tutor can associate specific 
graphics with specific predicate-calculus expressions describing a state in a tutoring 
simulation This further requires a specification of the arrangement of graphic objects on 
the screen, how graphic objects can change position with simulation states. It also requires 
a language for teachers to specify graphic objects. This thesis addresses both. We 
introduce a broader applications of cartoon animation modelling ideas to tutoring, that 
have been limited so far by the complexity of their implementation The special tools 
provided help computer-inexperienced instructors to develop their own cartoon animation 
modelling tutor without the need of mathematical description of shapes or activities to be 
represented. The tutor generator used employes means-ends analysis, and the language for 
the teachers is built using Prowindows, a Prolog extension for object-oriented design. 
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I. INTRODUCTION 


A. BACKGROUND 

Computer-aided instruction (CAI) refers to use of computer to tutor humans [TURB 
90] To a certain extent, such a machine can be viewed as an expert system However, the 
major objective of an expert system is to render advice, whereas the purpose of CAI is to 
teach. Computer-aided instruction has been in use for many years, bringing into the 
educational process the power of the computer. Now artificial intelligence (AI) methods are 
being applied to the development of intelligent computer-assisted instruction (ICAI) 
systems in an attempt to create computerized tutors that shape their teaching techniques to 
fit the learning patterns of individual students 

An intelligent computer-assisted instruction system basically consists of four major 
parts; the student modelling module, the expert module, the tutorial module, and an 
interactive user interface. The expert module is a domain-specific knowledge base where 
the teacher’s expertise and knowledge are stored The tutorial module, sometimes referred 
to as the inference engine or tutor generator, is a program which, given a certain response 
from a student, uses the information in the knowledge base to generate the tutor The 
interactive user interface provides communication between the system and the user. 

In most ICAI almost all effort is put into building the first three modules, the student 
modelling module, the expert module and the tutorial module, since they do form the core 
of the ICAI, and little research effort goes into developing good user interfaces. Yet there 
are two good reasons not to ignore interfaces issues. First, the best educational software can 
be ruined by a bad interface, and second, students will not learn to their potential from a 
program they are reluctant to use [PSOT 88] Early design of intelligent computer-assisted 
instruction systems very much depended on natural-language front ends, with human-like 
dialog. But human-like dialogue, in which the computer prompts the user for answers to a 
series of questions, is rigid, tedious and machine-centered [HEND 88] A better approach 
could be to provide intelligent computer-assisted instruction systems with a graphical user 


1 





interface, where facts are represented by a set of visual representations (graphical objects) 
on a graphical display that can be manipulated by the users The users have no command 
language to remember beyond the standard set of manipulations and a continuous 
remainder on the display of the available objects and their states This direct manipulation 
approach is good for all intelligent tutors that continuously need to assert and retract part 
of the knowledge base 

B. OBJECTIVES 

This thesis addresses the user interface problem by augmenting a domain-independent 
computer-assisted instruction system with a graphical user interface and then providing the 
teachers with a tool for defining their instructional modules to work with the augmented 
system. We used as basis Professor Neil C. Rowe’s domain-independent tutor generator for 
sequential skills, METUTOR21 [ROWE 9C], which uses means-ends analysis approach. 
We want to keep the original environment of METUTOR21 by using the same 
programming language (PROLOG) and /or its extension The final outcome of this 
research consists of two parts, the augmented inference engine MEGRAPH21 and a 
graphics production tool for the teachers to define their facts in graphics representations, 
DRAWGRAPH 

C SCOPE 

In augmenting METUTOR21 we followed it closely and preserved its original 
organization. Some parts, however, need to be completely rewritten to reflect the need of 
object-oriented design. This graphical user interface improvements are written in 
PROWINDOWS, an extension of the PROLOG programming language. A graphics 
design tool for the teachers comprises the other half of the effort in this thesis. It provides 
a way to define graphical objects, to specify their position on the interface screen, and to 
define the interaction between graphical objects and the tutored states. 
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D. ORGANIZATION 

Chapter II of this thesis describes previous works on ICAI, some of them with 
graphical user-interface Chapter III describes in a considerable detail the METUTOR21 
as a domain-independent tutor generator. Chapter IV provides the description of our 
programming to provide the tutor generator with graphical user interface Chapter V 
discusses the results and summarizes the performance of this thesis research using fire¬ 
fighting tutor MEFIRE [ROWE 90] as the teacher module Chapter VI closes the thesis 
with an overview of the work accomplished and areas for future research 


3 


* 





s 

II. PREVIOUS WORKS ON INTELLIGENT COMPUTER-ASSISTED 

INSTRUCTION SYSTEMS 

Many intelligent computer-assisted instructions had gained pupularity and shown 
impressive teaching performance. Programs such as IMTS [PSOT 88], OASIS [HEND 88], 
and SOHPIE [SLEE 82] are considered as successful ICAI programs, but all of them are 
highly specialized or domain-specific, so specific that has made it difficult to extend them 
to related domains. METUTOR21 that employs means-ends analysis is capable of 
surprisingly powerful reasoning, yet is easy to customize for an application. It has been 
successfully applied to a wide range of training tasks, some of them have been for fire¬ 
fighting tutor on naval ships [WEIN 88], cardiopulmonary resuscitation [CAMP 88], 
network-mail program [KIM 88], replenishment of ships at sea [SALG 89], and pilot 
emergency tutoring system [KANG 90] However, no one has tried tieing graphical user 
interface to METUTOR21. The followings are description of examples of related tutoring 
programs, some of them have graphical user interfaces. 

A. INTELLIGENT MAINTENANCE TRAINING SYSTEMS (IMTS) 

The Intelligent Maintenance Training System (IMTS), was developed by Behavioral 
Technology Laboratories, University of Southern California, in early 1985 [PSOT 88]. The 
major objectives of the IMTS are to construct a cohesive maintenance training system in a 
functioning systems, and to produce an operational maintenance training system that can 
be used by instructors to meet a wide range of training needs. The first application of the 
IMTS will be in training corrective maintenance of the SH-3H helicopter’s bladefolding 
subsystem. The system was envisioned from the start to operate on off-the-shelf processing 
and display hardware manufactured in quantity and maintained commercially, and mouse 
is used for computer-student interactions that rely heavily on simulation of the real system. 
The system includes an object construction editor to define the graphic appearance and 
functions of generic objects, a system construction editor to build a specific system from 
the generic objects, and a simulator to determine the symptom of the faulty part. After a 
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new object is defined graphically it is given rules for its behavior using a generic-object 
behavior editor 

The ^TS screen is divided into four major sections for display. The fixed view of the 
system organization provides the student with a means of selecting close-up views of 
system subsections. The text area presents verbal messages from the IMTS in response to 
student actions, or as part of a guided simulation The main simulation display area shows 
a detailed diagram of one portion of the system. The convenience viewing area displays 
copies of some of the system elements that appear in the detailed diagram. Each practice 
problem consists of a malfunction, inserting the malfunction into the simulation data of the 
system, initializing the control settings, and displaying the operator’s complaint in the text 
area The student uses the mouse to directly manipulate simulated objects and to select 
menu commands and other options Actions are performed by selecting the portions of the 
system diagrams containing controls, indicators and test points of interest, and 
manipulating the displayed elements as if they were the real equipment. 

IMTS can be configured for new training applications, but it consists almost entirely 
describing the new architecture to the system. 

B. QUEST 

QUEST (Qualitative Understanding of Electrical Systems Troubleshooting) is an 
ICAI system for teaching electrical system troubleshooting. The system employs 
qualitative simulation models to produce explanations and to generate animated displays 
about the behavior of simple electrical circuits. The simulation includes a description of the 
circuit with rules for evaluating states of devices. It supports a dynamic presentation 
environment using graphics. Troubleshooting concepts and strategy within the 
environment of circuit operation can be demonstrated by the expert troubleshooting 
program. QUEST diagnostic feature elicits explicit information from the student about the 
intended purpose of his or her actions before they are performed and about his or her 
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conclusions aftenvard. The interface is relatively easy: the student answers questions by 
choosing from a range of responses from the display window using the mouse 

C. GUIDON 

GUIDON [CLANG 87] is a structured, case>method-dialog teaching program. The 
program generates teaching material from rules, constructs and verifies a model of what the 
student knows, and explains expert reasoning The objective of GUIDON is to convert 
MYCIN, an infectious-disease knowledge-based consultation program into an instructional 
.tool. As an interactive teaching program, GUIDON systematically compares student 
behavior to what MYCIN would do, alerting the student to discrepancy in a consultation. 
The explanation program in GUIDON abstracts key reasoning steps and presenting prosaic 
summaries and subgoal diagrams. GUIDON has been coupled to other knowledge-bases 
like the PUFF consultation system for diagnosis of pulmonary function and the SACON 
system for structural analysis. The purpose of a GUIDON tutorial is to use the context of 
an actual problem to make the student aware of inconsistencies in his knowledge, and to 
correct these inconsistencies. The student-computer communication is limited to a 
computer terminal that print one line at a time, graphical representations are not considered 

D. SOPHIE 

The Sophisticated Instructional Environment (SOPHIE) [SLEE 82] is a pioneering 
ICAI system for electronics troubleshooting training. It used a general circuit simulation 
program as a dynamic knowledge base for evaluating the behavior of the circuit under 
working or faulted conditions. The student goal is to find a fault in the simulated system. 
SOPHIE uses device-base simulation to support the checking of student inference, as well 
as heuristic strategies for question generation and answering mechanism. The 
understanding capabilities in the system was based on its use of a general purpose circuit 
simulation called SPICE, together with a LISP-based functional simulator. SHOPEE used 
the simulator to make powerful inferences about circuit behavior. It could infer what the 
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student should have been able to conclude, however it could not tell whether the student’s 
conclusions were based on logically complete and consistent reasoning 

E. STEAMER 

STEAMER [KEAR 87] is an intelligent computer-assisted instruction system that 
simulates a ship’s steam propulsion plant It is used to train operators by helping them 
understand the complex system through interactive graphical interfaces. The actual 
implementation of reasoning mechanism is purely mathematical, and it has inspired 
research in the areas of mental model and abstraction simulation in AI. 
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III. METUTOR21 TUTOR GENERATOR 


METUTOR21 is a domain-independent inference engine used for teaching sequential 
skill [ROWE 90] This reasoning mechanism implements means-ends analysis method that 
is similar to the way people solve many sequence planning problems Unlike other tutor 
programs that teach sequential actions. METUTOR21 is easy to customize for an 
application. It requires only assertion of preconditions, postconditions and a set of 
recommended conditions for actions The simple method can easily be understood by 
people not expert in artificial intelligent, making it easy to construct a tutor program. 

A. MEANS-ENDS TUTOR 

Means-ends analysis is a classic technique for solving search problems by abstraction. 
The top-level of means-ends analysis in METUTOR21 is a recursive means-ends 
predicate with four arguments; State, Goal, Opiist, and Goalstate The State is a complete 
list of true statements (facts) in a state, the Goal is a list of facts that are required in the goal 
state, the Opiist is a list of operators required to reach the goal state from the starting sate, 
the Goalstate is a complete list of facts at the goal state. 

The means-ends tutoring strategy checks if the student action agrees with what the 
tutor think is the best action If it doesn’t the student is tutored and shown the implications 
of his or her action Six domain-independent bug types can be detected with student- 
selected actions [ROWE 88]: 

1. The student’s action is a misspelling of a known action. 

2. The student’s action is easily confusable with a recommended action. 

3. 'fhe student’s action does not satisfy preconditions of the action. 

4. The student’s action is an irreversible one: that means the problem can never be 
solved if the action is performed 

5. The student’s action is useless 

6. Both the student’s action and the computer-selected action are possible in some 
state 
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To know what operators to apply for a specific situation, means-^nds analysis needs 
to know the difference between the current state and the goal state This difference usually 
is stored in a difference table. Using the recommended operators the difference table 
recommends an operator appropriate to a state and a goal It is important to note that the 
difference table only recommends, with no concern if the operator can actually be applied 
to the state. The recommendation can be overruled by the stronger precondition 
requirements. Through the difference table a problem is decomposed into three simpler 
subproblems: a subproblem of getting from the current state to an intermediate state in 
which the student can apply the recommended operator, a subproblem of applying the 
operator and get to a new state, and a subproblem of going from there to the goal state 
The last two steps are search problems themselves, possibly requiring additional 
decompositions of their own Means-ends analysis is also hierarchical reasoning because it 
starts with big problems and tries to gradually reason down to little details [ROWE 88]. As 
shown in the decomposition process above a complete and correct specification in the 
difference table of preconditions and postconditions of operators is essential for means- 
ends analysis. 

B. KNOWLEDGE REPRESENTATION IN METUTOR21 

METUTOR21 is written in PROLOG [QUIN 90] using predicate calculus 
expressions as the format for its knowledge representation. The teacher defines the 
recommended conditions, preconditions, deletepostconditions and addpostconditions rules 
and optional facts in the knowledge base as the description of the domain 

1. Recommended Cordi.'or s 

Recommended conditions are collection of facts about what action is 
recommended to get to a certain condition. Predicate recommended with two arguments; 

recommended(Operator, Difference-list) 
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shows what operator to apply to get a listed difference between goal state and current state 
Recommendations are weaker than preconditions because they don’t take into account 
other conflicting conditions A recommended condition may not be applicable if the 
precondition does not support it 

2. Preconditions 

The precondition predicate gives the prerequisites for applying an operator This 
is a stronger condition for applying an operator than the recommendation. The 
recommendation only recommends, with no consideration whether the operator can be 
applied or not, whereas precondition requires that the prerequisites are met before an 
operator can be applied 

3. Deletepostconditions and Addpostconditions 

The deletepostcondition predicate lists conditions deleted when an operator is 
applied. These conditions are no longer true after the operator is applied and need to be 
removed from the state. The addpostcondition predicate lists conditions added into the 
difference list (list containing the difference between the current state and the goal state) 
when an operator is applied. These conditions become true after the application of the 
operator, and are added to the state. 

4. Optional facts 

The following facts are optional and can be added in the teacher’s definition of 
the knowledge base. The randsubst predicate gives random-substitution triples or 
quadruples, each with the arguments: initial-fact, ending-fact, transition-probability, and 
message to user. It gives additional changes beyond those specified in the postconditions 
to simulate a real-world situation and to challenge the student. The noprefs predicate shows 
that the order of priority of two operators in the ‘recommended’ rules is arbitrary. The intro 
predicate gives introductory information for the student. Debugflag, if asserted, prints 
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additional debugging data studentflag, if asserted, prevents the program from checking 
for teacher errors, so the execution is speeded up. 

C THE USER INTERFACE OF METUTOR21 

METUTOR21 uses natural language as the medium of communication between the 
system and the user. The built-in natural language processor inside METUTOR21 “works 
most of the time”, as Professor Rcwe termed it, however it is limited The natural language 
processor translates typed-in input from the user into a predicate expression that can be 
used by the tutoring system for the reasoning process, and translates the resulting predicate 
expressions into natural language to be displayed to the user. 

No special window is designed for interactive communication between the student and 
the tutoring system. METUTOR21 runs in any PROLOG window. Help is provided 
showing the list of possible operators in randomized order. Some filtering on the student 
typed-in input such as spelling correction and checking of student confusion is provided. 
As mentioned in the introduction, natural language front ends like this in which the 
computer prompts the user for answers, is rigid and machine centered At best, it is error- 
prone and it distracts the students from the learning contents, thus reduces its effectiveness. 
Improving METUTOR2I with direct manipulation user interface would overcome this 
problem. 
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IV. IMPROVEMENT ON METUTOR21 FOR DIRECT- 
MANIPULATION USER INTERFACE 


Direct>manipulation user interfaces need to represent menus and selections as objects 
This is possible for programs written in PROLOG with PROWINDOWS [QUIN 88], an 
object-oriented extension of PROLOG Quintus PROWINDOWS is an object-oriented 
programming package that enables PROLOG programmers to create window-based user 
interfaces for their application programs. 

A. THE OBJECT-ORIENTED APPROACH IN PROWINDOWS 

PROWINDOWS uses objects and messages between objects to create window-based 
user interfaces These high-level messages are passed between PROWINDOWS and 
PROLOG, with PROWINDOWS handling the low-level tasks required by the program 
[QUIN 88], The tasks that PROWINDOWS objects can perform are called the object’s 
behaviors. 

The objects in PROWINDOWS are grouped into classes, with bottom-level objects 
called instances of a class. Kermis are classes that describe objects, messages, and other 
classes. Data Types are classes that describe abstract data types, including points, 
dimensions, collections of objects, and lists. Windows are classes that provides access to 
most of the facilities of the window system such as creation, display and destruction of 
widow families Dialogs are classes that allow the user to directly communicate with an 
application program by using various kind of menus, buttons, and the keyboard. Texts are 
classes that provide simple text manipulation tools for loading, editing, and saving text. 
Graphics are classes that describe both primitive graphic objects (bitmaps, boxes, circles, 
ellipses, lines, paths, text and text-block) and compounds of primitive graphic objects. All 
primitive graphic objects can be displayed inside a window class, especially subclass 
picture. The basic entity which can be displayed in a picture is called a graphical. Messages 
to these graphical can be sent through programs or direct interactive using a mouse or 
typed-in input through a dialog window. 
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B. ASSOCIATING NATURAL LANGUAGE WITH OBJECTS 

Typed-in text inputs are no longer used in MEGRAPH21, our augmentation of 
METUTOR21 Instead, users use the mouse to select the operators they want to apply from 
a list displayed in a browser A^dndow. This approach requires that operators be converted 
into text objects that can be displayed in random order. Our first step to do this is to create 
a browser window, where the operator objects are displayed A browser window is a special 
window object for displaying a list of selection objects. Objects inside a browser window 
are arranged vertically, and can be selected by clicking the mouse left button. 

Our next step is to find all possible operators. On initialization we extracted the 
operators from the second arguments in the recommended rules, and convert every one of 
them into & string object. The browser window shows the list of operators, and the operators 
are now objects with their own behaviors This window is a scrolling window, which means 
that the amount of visible space does not limit the number of operators displayed. This kind 
of menu is favored for displaying operators that vary in number from one tutorial program 
to another. 

The natural language to text object conversion is handled by the predicate; 
showlist(Text, L, R) 

with Text being the text object, L the predicate expression list, and R the type of the ex¬ 
pression (in this case operator type) We also prepare a translation table in the form; 

translate(predicate_form, naturaManguage_form) 

to avoid operator processing every time a translation is needed. 

The conversion from fact predicates and preconditions into text objects is handled in 
a similar way. The predicate expressions are converted into natural-language-like string 
objects and then sent to a text-block object.The text-block object is in turn sent to the 


13 







display window This is because the text-block object can arrange the text in an intelligent 
way. It can align the text according to the teacher’s specification, by left, right or center 
alignment. The natural-language format for the output objects follows the original format 
in METUTOR21 

There is a conversion from fact predicates to filenames for most fact predicates, which 
is basically the same operation as the conversion operation above The difference is that 
instead of blank space between words we put underline in the filename conversion This 
conversion is used for saving and calling a bitmap file 

C SCREEN LAYOUT OF MEGRAPH21 

The MEGRAPH21 interface screen is of size 930 by 850 pixels (see Figure 1), taking 
almost the whole screen in a Solbourne S4000 workstation. This is done to eliminate 
distractions due to a crowded screen display. There are two main parts of the window, the 
large display window itself on the left, and the operator selection browser on the right 

The topmost of the main display window gives the problem context. It introduces the 
tutor to the student as to give a general idea of what is happening Teachers are encouraged 
to provide this intro in their tutorial definition, and otherwise the 200 characters space 
provided is not used. Next is the objective definition. This objective is the final goal the 
student should achieve This can be considered as the definition of success, and explicitly 
stated by the teacher in the predicate goal Four lines (approximately 400 characters) are 
provided for this If the space is exceeded some of the characters will not be displayed 
Below this is the current state definition, the condition at this point in the simulation. At the 
onset of the tutoring, this state uses the teacher definition of start^state and it is changed 
dynamically during the session. The same amount of space as the objective is provided for 
this display. 

A big box under the current state display is the graphical presentation of the state 
described just above This seems like a redundancy, but it has a point. The two different 
formats, textual and graphical, each have advantages and disadvantages. Textual 
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representation can convey a meaning difficult to describe graphically like the state of an 
object, but graphical representations make the problem states look more real. 

Under the graphical representation box is the student selection box It shows the last 
operator selected by the student in a small box. Below this box is the tutor display, 
displaying whatever the tutor says or comments. This comments are made by the inference 
engine as the tutoring progresses 

Except the top two parts, everything in the main display window is changed with 
changes to the tutoring state 

D. GRAPHICAL REPRESENTATION OF STATES 

Representing states graphically requires that every fact object has a corresponding 
graphic representation. Better yet, the mapping should be from sets of facts to a graphic 
object, considering that one fact can have several states, for example a team can be at the 
repair locker or at the fire and can either be equipped or unequipped 

The teacher is responsible for defining the contextual combinations of facts for 
graphical representation For example the fact fire is raging must be represented 
differently according to the location of the fire team The tutor generator will check the state 
for a contextual combination, and then display the associated representation if any, 
otherwise the default representation will be displayed 

The default representation is stored with the same filename as the fact The contextual 
combinations are defined by the predicate display with three arguments. The first argument 
is the fact to be represented, the second argument is the list of additional facts providing 
context, and the third argument is the filename of a graphical representation of the fact. The 
following examples show how contextual combinations are defined; 
display(raging(fire), [location(repair, locker)], firel) 
display(raging(fire), [location(fire)], fire2) 
display(smokey, [location(repair, locker)], smokeyl) 
display(smokey, [location(repair, locker)], smokeyl) 
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dispIay(smokey, [location(fire)], smokey2) 
dispIay(location(repair, locker), [], teaml) 
display(location(fire). [], team2) 
display(approach(fire), [], team3) 

display(equipped(team), [location(repair, locker)], equipment!) 
display(equipped(team), [location(fire)], equipment2) 
display(equipped(team), [approach(flre)], equipments) 

These definitions must be included in *he teacher’s module. Figure 1 and Figure 2 
show the implementation oi this approach in our session window with the above contextual 
definitions inserted in MEFIRE 
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Figure 2: Session window showing change of state from Figure 1. Location is fire. 

The graphics display area is refreshed every time the state changes to display the new 
state. To prevent refreshing the whole window, the graphic display area is isolated from the 
rest of the window area This is done by using a bitmap object as the displaying area. This 
bitmap object is of size equal to the graphics display box. It is appended to the main 
window. Whenever the state changes, 1VIEGRAPH21 changes the bitmap instead of 
refreshing the whole display window. Each drawing displayed on the graphic display box, 
and associated with a set of facts, is loaded from bitmap files created by the teacher using 
DRAWGRAPH, a graphics tool. 
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E. DEFINING GRAPHICAL FACT OBJECTS 


Since MEGRAPH21 can only call graphic objects that previously stored in 
PROWINDOWS format, we cannot just have the teacher uses any graphics tool like 
FrameMaker to create the pictures needed Also, many graphics tools are too complex for 
computer-naive teachers to use So we created DRAWGRAPH the graphics tool for 
defining graphical objects that goes with MEGRAPH21. Using DRAWGRAPH the 
teacher can create new drawings, group several drawings into one object, ungroup an object 
into individual graphic objects, make copies of a graphic object, save and display 
previously saved drawings 

1. Drawing Creation 

Our graphics editor DRAWGRAPH uses primitive graphic objects such as lines, 
paths, boxes, circles and ellipses as building blocks to create an object The graphic 
primitives permit the creation of many graphic images. An additional class called figure is 
provided in PROWINDOWS to enable the user to interact with graphic objects. Figures 
are objects having three special capabilities: 

1 They can represent a collection of graphical, within a fixed reference frame 

2 They can be moved either with a mouse or under program control. 

3 They can be linked to one another to represent a logical relationship. 

All graphic objects created with DRAWGRAPH are appended to a figure the first 
time they are created, so they can be manipulated by the teacher (see Figure 3). However, 
we chose to save it in a bitmap, because it is the simplest way of saving The problems with 
saving in a bitmap are the required large amount of space and that we can not manipulate 
the individual objects anymore, since a bitmap is a collection of pixels 

2. Grouping and Ungrouping Features 

To represent complicated objects, DRAWGRAPH is equipped with a grouping 
capability. Several graphical primitives can be grouped into one object to make it easy for 
further manipulation like copy, move etc. 
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Figure 3: A circle primitive object on its figure (a) and direct display (b). 


The objects selected for grouping are separated from their initial figures, and then 
the graphical primitives are all appended to a new figure (see Figure 4), A position 
correction is needed in this process because the graphical primitives still hold an initial 
position which does not conform to the group figure position. Ungrouping is a less 
complicated procedure. The selected object is first separated from the figure to which they 
were appended, and each individual graphical object is appended to its own new figure. 

3. Copy Feature 

DRAWGRAPH’s copy feature makes a duplicate of an object, whether they are 
primitives or grouped objects A duplicate object is initially displayed at five pixels down 
and five pixels right of the original object. 













Figure 4: Grouped primitives make one object. 



Figure 5: A copied object. 
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4. Saving Objects 

Saving an object is the last step in defining a graphical object. The save option 
from the main menu will display a submenu with four buttons Clip, Cut&Save, Done and 
Cancel. To save an object the teacher must define first the area to be saved using the Clip 
option The Clip option allows the teacher to draw a box surrounding the area to be saved 

It is important to draw the box as close as possible to the object to cover the 
smallest area possible, so the bitmap file where it will be saved is minimum. AAer an area 
is defined, we use the Cut&Save button to save the clipped area Cut&Save option will give 
us the list of possible filenames that we can use. Selecting one of the filenames and clicking 
the OK button will save the clipped area to a file of that name. Filenames other than the 
ones offered by the listing can also be defined by typing in the text area. Since a bitmap 
does not retain any information about position, the graphic object position is saved in a text 
file called posfile This file is created and maintained (add or delete) by DRAWGRAPH 
and contains facts in the following format. 

area(niename, X, Y, Width, Height) 

This file is loaded by MEGRAPH21 to position the graphic objects in the display 
area, and used by DRAWGRAPH in the display option 

5. Display Option 

The display option will display previously defined graphic objects in the drawing 
area It can be used to position the next drawing relative to the previous drawing While the 
displayed objects occupy the same space with the newly created object, they are appended 
to different window-class object The displayed object is appended to a bitmap object, 
while the new object is appended to a picture object. The save option ignores the bitmap 
object in the clip area (see Figure 6) Using this approach the exact position of graphic 
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objects can be defined The drawing area is of the same size as the MEGRAPH21 
graphically area, hence position in drawing is important It will be the same as on the tutor 



Figure 6: The newly created object (bowl) will be saved, the cat will not. 
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V. DISCUSSION OF RESULTS 

We tested the tutoring system first without any graphical display, and then with 
graphical representation completely defined. For this testing we used MEFIRE [ROWE 
90], the fire fighting tutor, as the tutorial module. 

A. PROGRAM SIZES 


Files 

Description 

Source 
Code Size 
in bytes 

MEGRAPH21 

Tutorial module 

37,322 

DRAWGRAPH 

Graphic editor module 

30,732 

COMMON 

Common module, used by 
both MEGRAPH and 
DRAWGRAPH 

15,068 

MEFIRE 

The fire-fighting tutor 
module 

8,515 

POSFILE 

File for storing graphics’ 
position 

1,071 


Total 

92,708 


TABLE 1; Program sizes. 

The sizes of the programs are shown in Table I. The total size is approximately 93 
kilobytes including the tutorial module which varies, depending on the teacher’s 
application. Besides the program files there are bitmap files that store the graphical 
representation of facts defined by the teacher. As shown in Table 2, some of the sizes are 
big due to the bitmap files. That is why it is important to clip the file as close as possible to 
the graphical objects to reduce the storage size. The sizes will vary from one application to 
the other, and depend on how complicated the representations are. 
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Bitmap Filename 

Operator applied 

Size in 
bytes 

boundari es_are_set 

set boundaries 

19,080 

casual ty_isj}resent 

random substitution, 

9,345 

casual tyjsjtreated 

give first aid 

5,364 

fire_area_is_deenergize 

denergize 

5,324 

fireJs_confronted 

go fire 

25,957 

fircJs_outjs_verified 

verify out 

8,007 

firejs_raging 

starting state 

16,756 

gases_are_safe 

none 

11,106 

gases_are_tested 

test gases 

13,518 

it_is_smokey 

starting state 

35,464 

itjs^watery 

starting state 

11,157 

medical_corpmanJs_present 

random substitution 

6,441 

oxygenJs_safe 

none 

14,475 

oxygenJs_tested 

test oxygen 

13,656 

oxy gen_tester_i sjested 

test oxygen tester 

10,897 

reflashing_is_watch 

set reflash watch 

15,628 

repai rj ockerj sjocati on 

go repair locker 

58,639 

team_is_debriefed 

debrief 

18,229 

team_is_equipped 

equip 

14,287 

teamj s_not_equi pped 

store equipment 

13,399 

waterJ s_esti m ated 

estimate water 

3,126 


Total 

332,855 


TABLE 2; Graphic representation bitmap sizes from MEFIRE. 
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Trial 

Mem Total 

In Use 
(bytes) 

Program 

Space 

(bytes) 


Local Stack 
(bytes) 

Runtime in 
seconds 

1 

1306144 

454228 


624 

62.583 

2 

1276672 

490288 

612060 

624 

94.316 

3 

1206704 

420320 

645660 

624 

51.816 

4 

1165908 

445056 

583432 

664 

73.733 

5 

1167558 

446596 

551792 

624 

96.033 

6 

1249036 

462652 

639940 

624 

125.116 

7 

1255152 

468768 

673720 

624 

149.833 

8 

1198448 

477596 

591476 

624 

177.566 

9 

1202504 

481652 

610204 

624 

204.916 

10 

1208356 

487504 

580036 

664 

228.583 

11 

516048 

384984 

31492 

416 

41.033 

12 

1191876 

405492 

623248 

624 

62.833 

Avg. 

1064875 

452095 

571908 

613 

114 030 


TABLE 3; Runtime and memory usage statistic for MEGRAPH21 using MEFIRE. 

B. RUNTIME 

The runtime of MEGRAPH21 using MEFIRE as the tutorial module is desciibed in 
the following statistics. The runtime and the memory usage vary according to the tutoring. 
More mistakes made by the student means more runtime and more memory usage, and no 
mistakes takes the minimum runtime and memory usage. Time also depends on whether 
random substitutions are in effect. We ran the program 12 times, the minimum runtime 
(CPU time) was approximately 41 seconds and the maximum was 229 seconds, with the 
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average runtime of 114 seconds (see Table 3) The maximum, minimum and average of 
memory in use, program space, global stack and local stack are shown in Table 4. 


Memory 

Maximum 

Minimum 

Average 

(bytes) 

(bytes) 

(bytes) 

Total memory in use 

1.306.144 

516 048 

1.064.875 

Program space 

490.288 

384.984 

452.095 

Global stack 

719836 

31 492 

571.908 

Local stack 

664 

416 

613 


TABLE 4: Maximum, minimum and average of memory usage. 


C. ACCURACY 

We were concerned with the accuracy of the graphical representation displayed on the 
screen and the list of facts displayed in the state text. Throughout the testing we found that 
the list of facts was represented as intended accurately. The position of graphical objects on 
the display screen was the same as when they were created Even when the student made 
mistakes, the change of state was exactly represented by the graphical representation. We 
simulated several mistakes during the testing, and no deadlock was detected. 





























V 


VI. CONCLUSION 

A. MAJOR ACHIEVEMENTS 

This thesis is the first attempt to provide a graphical user-interface to METUTOR21. 
Two major achievements were accomplished; First, we provided the domain-independent 
tutoring system with a direct manipulation interactive user interface; second, we provided 
the teachers with a tool to define their facts in a graphical representation. 

In those respects, MEGRAPH21 is innovative in the following ways: 

a. It introduces a broader applications of cartoon animation modelling ideas to 
tutoring, that have been limited so far by the complexity of their implementation. 

b. The special tool provided helps computer-inexperienced instructors to develop their 
own cartoon animation modelling tutor without the need of mathematical description of 
shapes or activities to be represented. Image can be created and location is specified, and 
association with particular facts or set of facts can be defined The correspondence of facts 
to images can be specified not only as a single fact to a single image, but also multiple facts 
to a single image or multiple facts to multiple images. 

B. WEAKNESSES AND RECOMMENDATION 

The facts, objectives and teacher-comments display of 400 characters in 
MEGRAPH21 may not enough for bigger programs, and scrolling will be necessary. 
‘Greying’ the previously selected operators will help the students see the rest of the 
operators that is not applied yet For better animation more than just contextual relation 
definition of facts is needed We need more graphical definitions and integration 
management in the tutor module. 

Screen refreshing should not be necessary every time there is a change in state. 
Instead, an individual graphical representation should be asserted or retracted from the 
display screen Every graphical object should be editable This requires that the drawings 
be stored as graphical objects as well as bitmaps. The ability to read bitmap files stored in 
format other than PROWINDOWS format would be an advantage. 
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Other drawing features can be added Free-hand drawing capability can enhance the 
drawing flexibility. Rotate should provide 90 degree rotation of graphical objects Scale 
should scale an object size Front/Back should move an object display in front or in back 
of other objects. Flip Up/Down should rotate an object 180 degrees Polygons and arcs can 
be added to the graphical primitives. A library of shapes would help teachers with non- 
artistic inclinations. 
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APPENDIX A 

DRAWGRAPH USER’S GUIDE 


Introduction and Purpose. 

DRAWGRAPH is a graphic tool specially designed for defining graphical objects to 
be used in intelligent computer-assisted instruction systems. The graphical objects are 
created using primitive objects such as lines, paths, boxes, circles, ellipses etc. as well as 
free-hand drawings. Ihrough a menu selections the line thickness of the drawing can be 
.defined. Users can also define whether or not the line will have an arrow end. The primitive 
objects are movable for arrangement by click-and-dragging the mouse middle-button. 

DRAWGRAPH derives filenames into which the objects will be saved from the 
teacher’s tutoring program, the program where all rules concerning the tutored skill are 
defined. This requires that the tutoring program be created first before attempting to run 
DRAWGRAPH. These filenames represent facts in the tutoring program and are displayed 
in a browser menu, which can be selected by the users to name the object’s files. The users 
also have the freedom to make a filename other than the one offered by DRAWGRAPH 
by typing it. The users specify part of the drawing that will be saved using ‘clip’ and ‘cut- 
and-save’ features, and the drawing objects are saved as bitmap files 

DRAWGRAPH is written in Prowindows, an object oriented graphic language 
extension of Prolog, to complement the teachers tutoring program which is written in 
Proiog DRAWGRAPH compiles in Prowindows under Unix X-Window environment 
The users of this tool are teachers building tutoring programs intended to run on the 
augmented Professor Rowe’s intelligent computer-assisted instruction system using 
means-ends analysis. MEGRAPH21. The users are assumed to be familiar with Prolog and 
able to write tutoring programs for sequential skills. 


Products of DRAWGRAPH sessions 

There are two kind of files created during a DRAWGRAPH session: 

a. Object files, bitmaps files that contain the objects created during a DRAWGRAPH 
session. These are objects defined by the teacher for the tutoring program. For the sake of 
simplicity all object files created during DRAWGRAPH session will reside in the same 
directory as the tutoring program. 

b. posfile, a file containing the information about the area the objects will occupy 
when they are displayed. The area information contains the filename, xy-coordinates of 
upper-IeR comer of the area, width and height. This information needs to be stored 
separately because bitmaps do not retain them. 
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DRAWGRAPH Menu Organization 

DRAWGRAPH’s drawing plate is of size 910 by 384 pixels (see Figure 8) and will 
open together with a dialog window that contain the selection menu The menu lay out 
detail is shown in Figure 8. 
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Figure 7: DRAWGRAPH main-plate and the menu 


1. Menu for Operate 

- Group; to group several selected objects into one object. 

• Ungroup: to separate a group of objects into individual objects. 

• Copy to duplicate an object. 

- Save: to save a drawing object as a bitmap file 

• Display: to load a bitmap object and display it in the drawing plate 

- Erase, to erase an object. 

• Clear: to erase all drawing objects from the drawing plate. 

• Redraw: to refresh the screen if the drawing is messed-up. 

- Exit, to exit the DRAWGRAPH session. 
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2. Menu for Create 

Menu for Create cons’-ts of the following buttons 

• Line: to draw straight unes 
> Path: to draw straight paths. 

- Curve: to draw smoothed paths. 

• Box: to draw boxes 

- Rounded: to draw boxes with rounded comers 

- Circle: to draw circles 

• Ellipse: to draw ellipses 

• Text Box: to draw string of characters inside a box 



Figure 8: DRAWGRAPH menu 
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3. Menu for Fill 

The ‘Fill’ menu consists of several shades of fill patterns, including black and 
white with white fill as default Once a fill is selected by clicking the left mouse button, it 
can be used to fill several objects >vithout the need of going back to click the fill, until a 
different menu is selected 


4 . Pen Size 

‘Pen size’ is a cycle menu, consisting of ten pen size selections. The pen size 
indicates the thickness of a line in pixels. Pen of size one is the default Using a pen size 
bigger than half the area of an object will fill the object with black. 


5. Line Ends 

‘Line ends’ is also a cycle menu, consists of four selections; ‘None’, ‘First 
Arrow’, ‘Second Arrow’, or ‘Both Arrows’, which will put arrows at line ends according 
to the menu selection Note that ‘First’ means the start of a line, and ‘Second’ is the end of 
a line when it is created 


Starting DRAWGRAPH 

DRAWGRAPH requires that Prolog and Prov'indows are properly installed, and can 
be called from DRAWGRAPH directory. At ProwinJows prompt load the following files: 

- DRAWGRAPH 

• common, a utility file, and 

- the teacher program 

This can be done by typing ‘[drawgraph, common, ‘program name’].’. After a 
successful loading, again at Prowindows prompt, invoke DRAWGRAPH by typing ‘draw’ 
with no argument. The drawing plate will be opened, followed by the menu dialog window. 
Position both windows at your convenience, and DRAWGRAPH is ready for drawing 
objects. To exit DRAWGRAPH, left-click the ‘Exit’ button. 

Note. Before all this, you must do ‘xinit’ to initialize the X-Window environment if 
you have not previously. If your work station does not have PROW'INDOWS, you must 
‘rxterm’ (not rlogin) to a machine that does 


Creating Objects 

The first step to draw an object is to select the pen size, unless a default size is desired. 
To select a pen size, click the pen size button using the mouse right button. Ten pen 
selections will be displayed. Select the desired pen size by clicking the mouse left button. 
Any object created after this selection will be drawn at the selected pen size. To return the 
default pen size, left-click the pen-size button If the object is a line, path, or curve, and an 
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arrow is desired to be on the line end. then ‘Line ends' button should be selected before 
drawing the object. 


Drawing Lines 

Left-click the ‘Line’ button in DRAWGRAPH ‘Create’ menu to draw lines. A sub¬ 
menu for drawing lines as shown in Figure 9 will be displayed This sub-menu is cancelled 
by left-clicking ‘Done’ button 



Figure 9: Sub-menu for drawing lines 


To draw a new line, left-click ‘New’ button, and the button will appear ‘greyed’. The 
cursor is now ready for drawing a line Left-click again at a point in the drawing area, and 
drag the mouse while holding the button down to draw a line, release the mouse button to 
end the line. Arrows will be drawn at line ends as specified by the ‘Line ends’ selection. To 
draw another line, repeat left-clicking the ‘New’ button and left-click and drag the mouse. 
If after clicking the ‘New’ button drawing a line is not desired, the ‘greyed’ button can be 
released by clicking ‘Cancel’ button. 

To erase a line, left-click the ‘Erase’ button, and then left-click the line to be erased 
This process can be repeated as necessary. If for some reason ‘Erase’ is selected but decided 
not to be used, ‘Cancel’ button will release the ‘greyed’ ‘Erase’ button. After drawing lines, 
left-click ‘Done’ button, and the ‘Draw Lines’ sub-menu will disappear. Another menu 
selection then can be made 


Drawing Paths 

Left-click the ‘Path’ button in DRAWGRAPH ‘Create’ menu to draw paths. A sub¬ 
menu for drawing paths like in Figure 10 will be displayed. This sub-menu is cancelled by 
clicking ‘Done’ button. 

To draw a path, left-click ‘Start’ button, and the button will be ‘greyed’. The cursor is 
now ready for drawing a path. Left-click and release the mouse at a starting point in the 
drawing area. Make another left-click to select next point for the path A line connecting 
the two points will be drawn on the drawing plate Another point can be selected, and 
another connecting line will be drawn. This procedure can be repeated as necessary. As in 
line drawing, arrows will be added at the path ends according to the ‘Line ends’ selection. 
To stop the path drawing click the ‘Cancel’ button from the sub-menu. To draw another 
















path, left-click the ‘Start’ button again and repeat the process The ‘Erase’ button works as 
with drawing straight lines. 


Drw Paths 


[Left-click to start and end a segment] 
C Start^ ( Erase ) (Done^ ( CanceQ 


Figure 10: Sub-menu for drawing paths 


Drawing Curves 

A curve is a smoothed path. Left-click the ‘Curve’ button in DRAWGRAPH ‘Create’ 
menu to draw curves A sub-menu for drawing curves similar to the sub-menu for drawing 
paths will be displayed Options are like those for drawing paths. 


Drawing Boxes 

Left-click the ‘Box’ button in DRAWGRAPH ‘Create’ menu to draw boxes. A sub¬ 
menu for drawing boxes as shown in Figure II will be displayed This sub-menu is 
cancelled by clicking ‘Done’ button. 




[ Left-click and drag to draw a box. 
(New) (Erase) (Done) (Cancel 

) 


Figure 11: Sub-menu for drawing boxes 

To draw boxes, left-click ‘New’ button. The button will be ‘greyed’, which means the 
cursor is ready for drawing a box. Left-click and drag the mouse to the lower right to draw 
a box, and release the mouse button to finalize the box. The box will be drawn with the 
starting point as the upper-left corner and the end point as the lower-right comer. Other 
options are similar to drawing previous objects. 


Drawing Rounded-Boxes, Circles and Ellipses 

A rounded box is a box with rounded comers. The procedure for drawing rounded- 
boxes, circles, and ellipses are the same as drawing boxes. Left-click the ‘Rounded’, 
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‘Circle’, or ‘Ellipse’ button in DRAWGRAPH menu to draw rounded-boxes, circles or 
ellipses. However, the program behaves differently as you move the mouse to the lower 
right comer and release it For the rounded-boxes, the comer will be rounded after the left 
button is released As for circles and ellipses, a circle or ellipse will be drawn inside the box 
after the button is released and the box will disappear. The sub-menu also looks alike. 

Note . The circle will take the shortest of the box sides as its diameter 


Drawing Text-Boxes 

A text-box is a box with text item centered inside the box Drawing text-boxes consists 
of two steps: drawing the box and typing the text. The procedure for drawing the box is the 
same as drawing boxes. After the mouse left button is released, the text-typing sub-menu 
like in Figure 12 will be displayed. LeA-click at the text area, a cursor will appears at the 
beginning of the line. Type in the desired text, and then left-click the ‘OK’ button. The text 
will be displayed centered inside the previously drawn box, and the ‘Write Text’ sub-menu 
will disappear. 


S Write Text 


m 

Enter text: 



Figure 12: Sub-menu for writing text for text boxes 

Note: Although the text area in the sub-menu appears limited, the actual area is not. It 
will scroll to the left as the text exceeds the blank line 


Shading 

Objects can be filled with shades selected from the ‘Fill’ menu To fill an object with 
a shade, first left-click the desired shade from the ‘Fill’ menu The selected menu will be 
highlighted. Then bring the cursor to the object to be shaded, and left-click the object. The 
interior of the object will be filled with the selected shade. To change shade, change the 
shade selection by clicking the new selection, and proceed with the same procedure to 
shade the object. To cancel the fill, just select white fill and click the object. White fill is 
the default fill when the menu was created. 

Warning: Prowindows doesn’t quite completely fill some curved shapes. 


Selecting Pen Size 

The ‘Pen size’ menu is used to select the thickness of the lines drawn on the drawing 
surface. The menu is a cycle menu with selection of pen-size 1 to 10, indicating the line 
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thickness in pixel. Pen size 1 is the default when the menu was created. Pen selection should 
be done before drawing the object, and subsequent objects will be drawn at this pen size 
selection. 


Saving Objects 

The ‘Save* selection from the ‘Operate* menu is used to save objects into bitmap files. 
To save objects, left-click the ‘Save* selection from the DRAWGRAPH ‘Operate* menu. 
A ‘Clip to Save* sub-menu like in Figure 13 tvill be displayed. 


Clip to Sacve 


[ Left-click and drag to draw clip border. ] 
(Clip) (Cut&Savej (Done) (Cancel) 


Figure 13: Sub-menu for saving objects 

Left-click ‘Clip* button from this sub-menu, then draw a border box around the area 
to be saved. This process is done exactly the same as drawing boxes in the ‘Create* menu. 
It is important to draw the border as close as possible to the objects, so the space used to 
store the bitmap file will be minimum After drawing the border, left-click ‘Cut&Save’ 
selection to continue the saving process 

After clicking the ‘Cut&Save* selection, a sub-menu for filename selection like in 
Figure 14 will be displayed The sub-menu is a browser menu with selection of filenames 
taken from the teacher’s tutoring program. This is the reason why the tutoring program 
should be loaded at the same time with DRAWGRAPH to make it available for this 
purpose. A filename can be selected from the browser by clicking a selection, or a new 
filename can be typed in on the space provided. The filename selected from the browser 
will be displayed on this space and can be edited as desired. 

To actually save the enclosed objects click the sub-menu ‘OK* button. To cancel 
saving objects click the ‘Cancel’ button from the filename selection sub-menu. 

Note. The file names in the browser are sorted alphabetically for ease of selection. 


Displaying a Saved File 

A bitmap saved by DRAWGRAPH can be loaded and displayed at the same position 
as the position at its creation time. This is possible because the positions of the files are 
stored tn a position file. This file is created and maintained throughout the session, and wall 
be used by both the DRAWGRAPH, and the MEGRAPH21 (the tutoring system) to 
position a picture on the screen. To display a file on the drawing plate click ‘Display* 
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selection from DRAWGRAPH menu A filename selection sub-menu similar to the one 
used for saving objects will be di^laj^ed The filename can be selected through the browser 
or defined by typing it. If the file is in the directory it will be loaded and displayed, 
otherwise the menu will be cancelled. 


^ Filename selection 






1 S] 


oxygen_is_safe 
oxygenj s_tested 
oxygen_teste r_is.tested 
refTashing_is_not_watched 
ref1ashing_is.watched 
repair_lockerJ s_locati on 
team_is.debr1efed 
tearrLi s.equipped 
team_is_not_equipped 
water.is_estimated 


Click or type filename. 
Filename: 


(OK} (Cancel) 


Figure 14: Sub-menu for selecting a filename 


Note. A displayed object called using the above menu is different from a created 
object A created object can be saved and manipulated like erased, moved, grouped, etc., 
but the displayed object cannot. A created object may overlap a displayed object, but can 
still be saved without being ‘contaminated’ by the displayed objects. This feature is an 
advantage for positioning a new object relative to previously defined ones. 


Grouping and Ungrouping Objects 

Primitive objects drawn on the drawing plate Gines, paths, curves, boxes, circles etc.) 
are individual objects. It can be moved, and reaiTanged to make a collection of objects. To 
make several primitive objects as one object so it can be moved together, those individual 
objects need to be grouped The ‘Group’ selection of DRAWGRAPH ‘Operate’ menu is 
used to group selected primitive objects into one object After grouping, the object can be 
manipulated as a unit. Operation like erase and move will work on the entire group 
member. 
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To group several objects into one group, select the ‘Group’ button from the ‘Operate’ 
menu A ‘Group Objects’ sub-menu will be displayed. The next step is to select the member 
of the group This is done by clicking the ‘Select’ button and left-click the selected object 
anywhere in the imaginary box surrounding it. The selected object will be displayed in 
‘greyed’ form. Selection of objects is done one by one. After all member have been 
selected, click the ‘Group’ button. The selected members will be displayed normally, and 
they become one unit. The group sub-menu v^ll disappear. To cancel operation any time 
before clicking the ‘Group’ button, left-click the ‘Cancel’ button. 

The ‘Ungroup’ button is used to ungroup a previously grouped objects Left-click the 
‘Uiigroup’ button and then select the grouped object. The selected object will now back as 
individual objects and can be manipulated individually. 

Note. Group operation only works for individual primitive objects. To group a 
grouped objects, it must be ungroupped first into individual primitives. 


Copying an Object 

An object can be duplicated by left-clicking the ‘Copy’ button from the ‘Operate’ 
menu, followed by left-clicking the object to be duplicated A duplicate object will be 
displayed five pixels away from the original The duplicate object can be manipulated like 
the original object 


Moving Objects 

Objects created in the drawing plate are movable, so they can be rearranged as desired 
To move an object, middle-click the object anywhere inside an imaginary rectangle 
surrounding it, and drag the mouse while holding the middle button down to the desired 
position Release the button to finalize the new position The object is now drawn at the new 
position When objects overlap each other sometime it is difficult to determine the correct 
rectangle area Moving the overlapping objects around will solve this problem. 


Final Note 

The rectangle area surrounding an object will also prevent the starting of a drawing. 
This is because the drawing area recognizes the leR-click inside the rectangle differently. 
To avoid this, start the drawing at some clearly free space, then move the object to the 
desired position. To finalize a drawing inside the rectangle area is all right. 
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APPENDIX B 


MEGRAPH21 USER GUIDE 


Introduction and Purpose 

MEGRAPH21 is a domain independent intelligent computer-assisted instruction 
system that teaches sequential skills The system uses objects either graphical or textual as 
user-computer interface. The tutoring is displayed in a main window, and the user selects 
an action from a list of actions displayed in a browser window using a mouse. 

MEGRAPH21 is an augmentation of Professor Rowe’s METUTOR21 [ROWE 90], 
and is written in PROWINDOWS, the object oriented graphic language extension of 
PROLOG. It compiles in PROWINDOWS under Unix X-Window environment. The 
users of MEGRAPH21 are teachers building a tutorial program and students learning the 
skill using the tutoring system. The users are assumed to be familiar with PROLOG. 


MEGRAPH21 session window 

MEGRAPH21 session window consists of one main window with a browser window 
on the right A graphical display window displays the state of the tutoring graphically. 
Above the graphical display windows are the introduction display window, objectives 
display window, and current state window. Below the graphical display window are the 
action selection window and the tutoring window. 

The introduction window gives the problem context. It introduces the tutor to the 
student as to give a general idea of what is happening. The objective window ^ves the 
objective definition, which is the final goal the student should achieve. The current state 
window shows the definition of the condition at this point of simulation. The action 
selection window displays the last operator selected by the student The tutoring window 
displays whatever the tutor says or comments This comments are made by the inference 
engine as the tutoring progresses 


Invoking MEGRAPH21 

MEGRAPH21 requires that PROLOG and PROWINDOWS are properly installed, 
and can be called from MEGRAPH21 directory. To run MEGRAPH21 successfully the 
following files should reside and be loaded in the same directory; 

1. MEGRAPH21. 

2. COMMON, a utility file 

3. The teacher's tutorial program. 

This is done by typing '[megraph21, common, program_name]’ followed by 
<ENTER> at PROLOG prompt. If the graphical representations are already defined, the 
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bitmap files and the text file that retains their position, posfile, must also be in the same 
directory These files are created by the teacher using DRAWGRAPH, a graphics tool (see 
DRAWGRAPH User Guide) 

Note: Before al this, you must do 'xinit* to initialize the X- Window environment if 
you have not previously. If your work station dies not have PROWINDOWS, you must 
'rxterm* (not rlogin) to a machine that does 


MEGRAPH21 Main Menu 

AAer successful loading the tutoring system is started by typing 'go', and a main menu 
will be displayed. The main menu has three selection buttons: Go, Help and Exit 

Go: continue the tutoring system and start the learning process 

Help; show on-line help 

Exit: back to PROLOG prompt 


Note: No on-line help is provided at this moment Pressing Help button will do 
nothing 


Learning Session 

Clicking 'Go' from the main menu using the mouse left button will start the session 
and display the session window. Part of the session window that can be manipulated is the 
list of operators in the browser window. This window shows all possible operators in the 
tutorial program. To select an operator clicking the operator using the mouse left button. 
The selected operator will be greyed and the tutor states and graphics display will change 
according to changes caused by the applying of the operator. The selected operator will be 
displayed in the operator selection box under the graphical display. 


Exiting the Session Window 

When the session ends, the student exit the tutoring system by selecting Exit from the 
browser window. The session window will be closed, but the main menu is still displayed. 
Clicking 'Go' again will repeats the learning session 

Note: You can exit the learning session at any time. 


Exiting MEGRAPH21 

To exit MEGRAPH21 completely, click 'Exit' button from the main menu This wall 
bring the PROLOG prompt back 
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APPENDIX C 

SOURCE CODE OF DRAWGRAPH 


%—= 
% Program 
% Purpose 
% 

% 

% 

% Author 
% Date 
% Source 
% Notes 
Vo 
Vo 
Vo 
Vo 

o/o- 

% - 


; DrawGraph 

; This graphics editor program is a tool for teachers to specify graphic 
objects for their tutoring programs. Drawings are created using 
primitives building-blocks such as lines, paths, boxes, circles etc. and 
stored in a bitmap tie 
; Francius Suwono 
: April 6,1992 
; Prolog Prowindows 

; This program should be loaded together with the following programs; 
a. common, a utility file 
b the teacher's tutoring program 

Also: posfile, a file that contains area information of objects should 
be in the same directory. 


% Main calling routine 

% draw/0 creates the main plate for drawing pictures, and makes the necessary 
Vo preparation like loading information about previous picture position, calls 
Vo the main menu and opens both drawing plate and the menu. 

% - 


use_module(library(interpret_messages)) 
use~module(library(dialog)) ” 

;• use_module(libraTy(messages)). 
use~module(library(rename)) 


draw 

not(object(@pic)) -> 

% Load picture position from posfile. 

(read_position, 

% Create main plate @pic 
clear(@pic), 

new(@pic, picture('Main plate’, size(930,384))), 
sendj[ist(@pic, [horizontal_scrollbar, vertical_scrollbar], ofi), 

clear(@bit), 

new(@bit, bitmap(930,384)), 

% display the main plate and the menu. 
send(@pic, open), 
draw_menu) | true. 
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% -- 

% draw_menu/0 creates menu to draw objects 
% Object ^mairdraw is the main dialog window for drawing 
% It contains menus for: 

operate, for drawing manipulation 
create, to create primitive drawing 
fill, to fill area with pattern 

f ien size, to select pen thickness 
ine ends, to speciiy arrow for line's end 


% 

•/• 

% 

•/o 
•/o 

•/, - 

draw menu 


% the dialog window 
new(@maindraw, dialogCDrawGraph')), 


% menu for operate 

new(@operate, menu('Operate'. choice, cascade(@maindraw, select, 0))), 
sendJ[ist(@operate, append, ['Group', 'Ungroup', 'Copy', 'Save', 

'Dismay', ^rase', 'Clear', 'Redraw', 'Exit']), 


% menu for create 

new(@create. menufCreate', choice, cascade(@maindraw, select, 0))), 
send list(@create, append, ['Line', 'Path', 'Curve', 'Box', 

'Rounded', 'Circle', 'Ellipse', 'Text Box']), 

% menu for fill. 

new(@fill, menu('Fill:', choice, cascade(@maindraw, select, 0))), 

% make fill bitmaps for menu display 

make_fill, 

clear(@wht), 

clear(@grl), 

dear(@gi2), 

clear(@gr3), 

clear(@gr4), 

clear(@blk), 

new(@wht. menuJtem('White',0)), 
new(@grl, menujtemCGreyl'.O)), 
new(@gr2, menujtem('Grey2',0)), 
new(@gr3, menuJtem('Grey3',0)), 
new(@gr4, menujtem('Grey4',0)), 
new(@blk, menujtem('Black',0)), 
send(@wht, image, @white), 
send(@grl, image, @greyl), 
send(@gr2, image, @grey2), 
send(@gr3, image, @grey3), 
send(@gr4, image, @grey4), 
send(^blk, image, @black), 

sendjist(@fill, append, [@wht, @grl, @gr2, @gr3, @gr4, @blk]). 
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% menu for pen size 

new(@pen, menu('Pen size cycle.cascade(@maindraw, select, 0))), 
sendjlist(@pen, append, [1,2,3,4, 5.6,7, 8,9,10]), 

% menu for ends. 

new(@ends, menufLine ends ', cycle, cascade(@maindraw, select, 0))), 
sendj[ist(@ends, append, ['None', 'First Arrow'.'Second Arrow', 
'BotlTArTows'JX 

% arrange menu position 
send(@maindraw, append, ^operate), 
send(@create. right, @operate), 
send(@fill, right, @create). 
send(@pen, below, @fill), 
send(0ends. below, @pen). 
send(@maindraw, open). 


% make grey bitmap 

make_fill > 

fill_white(@white). 
fill jgreyl(@greyl). 
fill_grey2(@grey2). 
filljgrey3(@grey3). 
fill jBrey4(@grey4), 
fill_black(@black). 

filljgreyl (Bit) > 

clear(Bit). 

new(Bit, bitmap(60,18)), 
new(Grey, bitmap(4,2)). 
sendJisi(Grey, set. [point(O.O), point(2,0)]), 
send(Bit, replicate. Grey) 

filljgrey2(Bit) > 

clear(Bit), 

new(Bit, bitmap(60,I8)), 
new(Grey, bitmap(2,2)), 
sendJist(Grey, set, (point(0,0), point(l,l)]), 
send^it, replicate. Grey). 

fill_grey3(Bit) 

clear(Bit), 

new(Bit, bitmap(60,18)), 
new(Grey, bitmap(S,2)), 

sendJist(Grey, set, [point(0,0), point(2,0), point(3,0), point(l,l), 
point(2,l), point(4,l)]), 
send(Bit, replicate. Grey). 
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fin^rey4(Bit) > 

cIear(BitX 

new(Bit, bitniap(60,]8)). 
new(Grey, bitmap(3,3)), 

sendJist(Grey, set, [point(O.O), point(0,2). point(l,l), point(2,0), 
point(2.2)]). 

send(Bit, replicate. Grey) 

fill_white(Bit) > 

~ clear(Bit), 

new(Bit. bitmap(60,18)), 
send(Bit. clear). 

fill_bIack(Bit) > 

ciear(Bit), 

new(Bit, bitmap(60,18)), 
send(Bit, clear), 
send(Bit, invert) 


% selections for operate 

seiect(Menu,'Group') > 

not(object(@exit)), 

group_object 

select(Menu,'Ungroup') > 

not(object(^exit)), 

ungroup_object 

select(Menu,'Copy’) > 

not(object(@exit)), 

copy_object 

seIect(Menu, 'Save') > 

not(object(@exit)), 

save_object 

select(Menu,'Display') 

not(object(@exit)), 

dispIay__object. 

select(Menu,'Erase') > 

not(object(@exit)), 

erase_object 

select(Menu,'Clear') > 

not(oWect(@exit)), 
send(@pic, clear). 
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select(Menu,'Redraw') > 

not(o^ect(@exit)), 
send(@pic, redraw) 

select(Menu,'Exit') 

not(object(@exit)), 
exit draw. 


Vo- 

% selections to create objects 

seIect(Menu,'Line') 

not(object(@exit)), 

createjine. 

seIect(Menu,Tath') 

not(object(@exit)), 

create_path 

seIect(Menu,'Curve') 

not(object(@exit)), 

create_curve 

select(Menu,'Box') > 

not(object(@exit)), 

create_box 

select(Menu,'Rounded') > 

not(object(@exit)), 

create_rounded 

select(Menu,'Circle') > 

not(object(@exit)), 

create_circle 

seIect(Menu,'Ellipse') 

not(object(@exit)), 

create_ellipse 

select(Menu,Text Box') > 

not(obJect(@exit)), 
create textbox 


% selection for pen 

pen(X, Pen) 

get(@pen, selection, X), 
atom_chars(X, [N]), 

Pen isN - 48. 








% selection for fill 

% - 

select(Menu,'Greyr) > 

fill object(@pic, @greyl) 
select(Menu,'G^rey2') 

fill_object(@pic, @grey2) 

select(Menu,'Grey3') > 

fill_object(@pic, @grey3) 

select(Menu,'Grey4') > 

fill_objeci(@pic, @grey4) 

select(Menu,'White’) 

fill_object(@pic, @white) 

select(Menu,'Black') > 

fill_object(@pic. @black) 
fill_object(Pic7ure. Fill) 

send(Picture. clicked, cascade(Picture, fill. Fill)) 

filKPicture, Fill) > 

gel_ref(Picture, current, Fig), 
get_ref(Fig. graphical, Ch), 
get(Ch, list refs, [Graphically), 
send(Graphical, fill. Fill) 


% - 

% selections for ends 

% - 

arrows(Line, Ends) - 

get(@ends, selection. Ends), 
put_arrows(Line, Ends). 

put_arrows(Line, 'First Arrow') 

send(Line, anows, first). 

put_arrows(Line, 'Second Arrow') > 

~ send(Line, arrows, second) 

put_arrows(Line, 'Both Arrows') 

send(Line, arrows, both) 

put_arrows(Line, _). 
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% routines for creating objects 



% create lines 


createJine > 

not(object(@draw_paIette)) -> 
(new_dialog(@draw_palette, 'Draw Lines', drawjine), 
send(@draw_palette, open)) | true. 

*/• callbacks 

line_new(Picture, ) > 

” retractall(create flag), 

send(Picture, len_down, cascade(Picture, startjine, 0)), 
process_calIbacks(retract(creatc_flag)). 

start_line(Picture, Pos) 

get(@pic. last_click. Point), 

Point «point(X.Y), 
new(Line, line(X,Y,X.Y)), 
pen(Size. Pen), 
arrows(Line, Ends), 
send(Line, pen. Pen), 
send(Line, start, Pos), 

send((^pic, left drag, messagefLine, end, 0)), 
new(Fig, figureX 
send(Fig, append. Line), 
send(@pic, display, FigX 

send(@pic, left__up, cascade(@pic, graph_cancel, 0)) 

% generic callbacks for erase, cancel and done 

graph_erase(Picture,_) > 

~ send(Picture, clicked, cascade(Picture, erase, 0)), 
process_callbacks(retract(create_flag)) 

erase(Picture, _) > 

get_ref(Picture, current. Fig), 
gerref(Fig, graphicals, Ch), 
geUCh, list_refs, [GraphicalU), 
clear(Fig), 

create_cancel(Picture, _). 

graph_done(Picture, Dialog) > 

create_cancel(Picture, _), 
clear(Dialog). 

grapb_cancel(Picture, Dialog) 

” create_cancel(Picture, _) 












create_cancel(Picture, _) 

send(Picture, clicked. 0), 
send(Picture, left_up, 0). 
send(Picture, lefrdown, 0). 
send(Picture, left~drag, 0), 
uni queassert(cre^e_fl ag). 


% dialog declarations 

drawjine(_. label('[ LeA-click and drag to draw a line. ]‘,0), below, []). 
drawjine(_, buttonCNew', cascade(@pic, line_new, 0)), below. []). 
draw”line(_, button('Erase', cascade(@pic, graph_erase, 0)), right, []). 
drawjine(_, button('Done', cascade(^ic, graph^done, @draw_j)aJette)), right, []). 
drawjine(_, button(‘Cancer, cascade(@pic, grapli_cancd. @draw_palette)), right, []). 


•/, - 

% create paths 


create_path > 

not(object(@draw_palette)) -> 
(new_dialog(@drawj5alette, 'Draw Paths’, draw_path), 
send(@draw_palette, open)) | true 

% callbacks 
path_start(Picture,_) > 

retractall(create flag), 

send(Picture, len_up, cascade(Picture, path, 0)), 
process_callbacks(retract(create_flag)). 

path(Picture. Pos) 

new(Fig.figure), 

new(Path, path), 

pen(Size, Pen), 

send(Path, pen. Pen), 

send(Path, append, Pos), 

send(Fig, append, Path), 

send(Picture, display. Fig), 

send(Picture, ieft_up, message(Path, append.O)). 


% dialog declarations 

drawjpath(_, label('[Lefl-click to start and end a segment.)’,©), below, []). 
draw_path(_, button(’Start’, cascade(@pic, path_start, 0)), below, []). 
drawj)ath(_, button('Erase’, cascade(@pic, graph_erase, 0)), right, []). 
draw_path(_, button('Done’, cascade(@pc, graph_done, @draw_palette)), right, []). 
draw_path(_, buttonCCancel’, cascade(@pic, graph_cancel, @draw_palette)), right, []). 
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•/o- 

% create curves 

% - 

create_curve > 

not(object(@draw_palette)) -> 

(new_dialog(@draw_paIette, 'Draw Curves', draw_curve), 
send(@draw_palene, open)) | true. 


% callbacks 

curve_start(Picture, _) > 

retractall(create flag), 

send(Picture, lelt_up, cascade(Picture, curve, 0)), 
process_callbacks(retract(create_flag)). 
curve(Picture, Pos)~> ~ 

new(Fig,figure). 
new(Curve, path), 
pen(Size, Pen), 
send(Curve, pen. Pen), 
send(Curve, append, Pos), 
send(Curve, smooth, on), 
send(Curve, intervals, 10), 
send(Fig, append. Curve). 
send(Picture, display. Fig), 
send(Picture, left__up. message(Curve, append,0)) 

% dialog declarations 

draw_curve(_, label('[Left-click to start and end a segment )',0), below, []). 
draw”curve(_, button('Start’, cascade(@pic, curve_start, 0)), below, []). 
draw”curve(_, button('Erase', cascade(@pic, grapF_erase, 0)), right, [)). 
draw_curve(_, button('Done', cascade(^ic, graph_done, @draw_palette)), right, []). 
draw_curve(_, bunonCCancel', cascade(@pic, graph_cancd, @draw_palette;), right, []) 


% create boxes 

% - 

create_box 

not(object(@draw_paIette)) -> 
(new_dialog(@draw_pa!ette, 'Draw Boxes', draw_box), 
send(^draw_palette, open)) I true. 

% callbacks 
box_new(Picture, _) > 

retractall(create flag), 

send(Picture, lefi_down, cascade(Picture, start_box, 0)), 
process_callbacks(retract(create_flag)). 

start_box(Picture, Pos) > 
new(Fig,figure). 
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new(Box, box), 

pen(Size, Pen), 

send(Box. pen. Pen), 

send(Box, position, Pos), 

send(Picture, left_drag, message(Box, comer, 0)), 

send(Fig, appendTBox), 

send(Picture, display. Fig), 

send(Picture, left_up, cascade(Picture, refresh, 0)). 

refresh(Picture, ) > 

sendO^icture, redraw), 
create_cancel(Picture, _). 


*/» dialog declarations 

draw_box(_, label('[ LeA-click and drag to draw a box. ]‘,0), below, []). 
draw~box(_, button('New', cascade(@pic, box_new, 0)), below, [)). 
draw_box(_j button('Erase', cascade(@pic, graph_erasc, 0)), right, (]). 
draw_box(_, button('Done', cascade(@pic, graph done, @draw_palette)), right, [)) 
draw~box(_, button('Cancer, cascade(@pic, grap^_cancel, @draw_palette)), right, []). 


% - 

% create rounded boxes 

% - 

create_rounded > 

” not(object(@draw_j)alctte)) -> 

(new_dialog(@draw_palette, 'Draw Rounded', draw_rounded), 
send(^draw_palette, open)) | tme. 

% callbacks 

rounded_new(Picture, _) > 

retractall(create flag), 

send(Picture, leH_down, cascade(Picture, staTt_rounded, 0)), 
process_cal lback?(retract(create_fl ag)) 

start_rounded(Picnire, Pos) > 
new(Fig,figure), 
new(Rounded, box), 
pen(Size, Pen), 
send(Rounded, pen. Pen), 
send(Rounded, position, Pos), 
send(Picture, left_drag, message(Rounded, comer, 0)), 
send(Fig, append. Rounded), 
send(Picture, display. Fig), 

send(Picture, left_up, cascade(Picture, radius. Rounded)). 

radius(Picture, Rounded) 

send(Picture, redraw), 
send(Rounded, radius, 8), 
create_cancel(Picture, _). 
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% dialog declarations 

draw_rounded(_, label('[Left-click and drag to draw a rounded box below, []) 
draw”rounded(_, button('New', cascade{@pic, rounded_new, 0)), below, []). 
draw~rounded(_, button('Erase', cascade(@pic, graph_erase, 0)), right, Q). 
draw~rounded(. button('Done', cascade(@pic, graph~done, @draw_paletie)), 
right. [1). 

draw_rounded(_, buttonCCancel', cascade(@pic, graph_cancel, @draw_palette)), 
right, []) 


% - 

% create circles 

create_circle 

” not(object(@dTaw_palette)) -> 

(new_dialog(@draw_palette, 'Draw Circle', draw_circle), 
send(^draw_j)alette, open)) | true. 

% callbacks 

circle_new(Picture, _) > 

retractall(create flag), 

send(Picture, left_down. cascade(Picture, start_circle, 0)), 
process_callbacks(retract(create_flag)) 

start_circle(Picture, Pos) > 
clear(@b), 
clear(@0, 
new(@b, box), 
new(@f, figure), 
send(^b, position, Pos), 
send(Picture, left_drag, message(@b, comer, 0)), 
send(@f, append7@b), 
send(@f, greyed, on), 
send(Picture, display, @0. 

send(Picture. left^up, cascade(Picture. draw_circle, 0)) 

draw_circle(Picture, _) > 

send(Picture, erase, @0. 
graph_cancel(Picture, _), 
get(@b, area, area(X,Y,W,H)), 
min(W, H, D). 

% draw the circle 
new(Fig,figure), 
new(Circle, circle), 
send(Circle. area, area(X, Y, D, D)). 
pen(Size, Pen), 
send(Circle, pen. Pen), 
send(Fig, append. Circle), 
send(Picture, display. Fig), 
clear(@b). 
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V 


clear(^0. 

send(Picture. redraw) 

% dialog declarations 

draw circle(_, labeI('[Left-cIick and drag to draw a circle J‘,0), below, []) 
draw”circle(_, button('New’, cascadc(@pic. circle^new, 0)), below, [)) 

draw'"circle(_,buttonCErase’.cascade(0pic,graph_erase,O)), right, []) 

draw_circle(_, button('Done', cascade(@pic, graph done, @draw_palette)), nght, [J) 
draw circle(_, buttonCCancel', cascade(@pic, graph_cancd, @draw_palette)), 
right, []) 


--—- 

% create ellipses 

create_ellipse > 

not(object(@draw_pale«e))-> 

(new_dialog(@draw_palette, ‘Draw Ellipse', draw_ellipse), 
send(^draw_palette, open)) | true 

% callbacks 

ellipse_new(Picture. _) > 

retractall(create flag), 

send(Picture, lett_down, cascade(Picture, start_ellipse, 0)), 
process_callbacks(retract(creatc_flag)). 

start_ellipsc(Picture, Pos) > 
clear(@b), 

clear(@0. 

new(@b, box), 
new(@f, figure), 
send(@b, position, Pos), 

send(Picture, left_drag, message(@b, comer, 0)), 
send(@f, append, @b), 
send(@f. greyed, on), 
send(Picture, display, @0. 

send(Picture, left_up, cascade(Picture, draw_ellipse, 0)) 

draw_ellipse(Picture, _) > 

graph_cancel(Picture, _). 
get(@b. area, area(X.Y,W,H)), 

% draw the ellipse 
new(Fig,figure), 
new(Ellipse, ellipse), 
send(Ellipse, area, area(X, Y, W, H)), 
pen(Size, Pen), 
send(Ellipse, pen. Pen), 
send(Fig, append. Ellipse), 
send(Picture, display. Fig), 
clear(@b). 
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clear((^0. 

send(Picture. redraw) 


% dialog declarations 

draw_ellipse(_, label('[Left-click and drag to draw an ellipse ]',0). below, []). 
draw_eUipse(_, buttonCNew', cascade(@pic. eHipse_new, 0)). below, []) 
draw~ellipse(_, button('Erase', cascade(@pic, graph~erase, 0)), right, []). 
draw~ellipse(_, buttonCDone', cascade(@pic, graphjdone, @draw_palette)), right, []). 
draw_ellipse(. buttonCCancel', cascade(@pic, grapli_cancd, @draw_palette)), 
right, []). 


% —-- 

% create text blocks 

create_textbox > 

not(object(@draw_palette)) -> 

(new_dialog(@draw_palette, 'Draw Textbox', draw_textbox), 
send(^draw_palette, open)) | true. 

% callbacks 

textbox_new(Picture, _) > 

retractall(create flag), 

send(Picture, lefi_down, cascade(Picture, start_textbox, 0)), 
process_cal 1 backs(retract(create_flag)) 

start_textbox(Picture, Pos) - 
clear(@box), 
clear(@tb), 
clear@fig), 
new(@fig. figure), 
new(@box, box), 
new(@tb, text^block), 
send(@box, position, Pos), 
send(@flg, append, @box), 
send(@rig, append, @tb), 
send(Picture, display, ©fig), 
send(Picture, left_drag, message(@box, comer, 0)), 
send(Picture, left_up, cascade(Picture, create_text, 0)), 
cl ear(@draw_texT). 

create__text(Picture, _) > 

new dialog(@draw_text, 'Write Text', drawjext), 
senJ(@draw_iext, open). 

textbox_ok(Picture. _) > 

get(@boir, area. Area), 
send(@tb, area. Area), 
send(@tb, format, center), 
get(@ti. selection, Text). 
send(@tb, string. Text), 
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% 


get_refl(@box, duplicate, Box), 
new(Tb, text_bIock(Text, Area, center)), 
duplicate_te3<tbox(Tb, Box), 
cl ear(@draw_text), 
create_cancel(Picture, _) 

duplicate_textbox(Tb, Box) > 
new(Fig, figure), 
sendJist(Fig, append, [Tb. Box]), 
get(Tb, area. Area), 
send(@pic, display. Fig), 
clear(@figy 
% dialog declarations 

draw_textbox(_, label ('[Left-click and drag to draw the box )’,0), below, []). 
draw_textbox(_, buttonCNew', cascade(@pic, textbox_new, 0)), below, y). 
draw_textbox(_, button(‘Erase', cascade(@pic, graphjerase, 0)), right, []). 
draw_textbox(_, button('Done', cascade(^ic. graph_done, @draw_palette)), right, []) 
draw_textbox(_, button('Cancel', cascade(@pic, graph_cancel, @draw_palette)), right, []) 

draw_text(@ti, textjtem('Enter text;',", 0), below, []) 
draw_text(_, button('OK', cascade(@pic, textbox_ok, 0)), right, []) 


% subroutines for operates 

% - 

% subroutines for groupping objects 

% - 

group_object 

demolish(@oldfig_holder), 
demolish(@group~holder), 
dem ol i sh(@ pos_hol der), 

(not(object(@diiw_pallete)) -> 

(new(@group_holder, chain), 
new(@oldfig_holder, chain), 
new(@pos_holder, chain), 

new_dialog(@draw_palIete, 'Group Objects', group), 
send(@draw_pallete, open))) | true 

% callbacks 
group_select(Picture, _) 

retractal 1 (operate_f1 ag), 

send(Picture, clicked, cascade(Picture, select.group, 0)), 
process_callbacks(retract(operate_flag)). 


selectjgroup(Picture, _) 

% mark figure with greyed display 
get_ref(Picture, current. Fig), 
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send(Fig, greyed, on), 

% get figure position 
get_ref(Picture, current. Fig), 
geCFig, position, Pos), 
send(@pos_hoIder, append, Pos), 

% get the graphical 
get_ref(Fig. graphicals. Ch). 
get^h, list_refs, (GraphicalLJ), 
send(@group_holder, append. Graphical), 

% append old figure to figure holder 
send((^oldfig_holder. append. Fig), 
send(Picture. clicked. 0). 
uniqueassert(operate_f1ag). 


group(Picture, _) > 

% erase old figure from display 
get(@oldfig_holder, list_refs. List), 
sendJist(List, erase), 

% make position correction 
get(@group_holder, list^refs, Grouplist), 
get(@pos_holder, list, Poslist), 
correctj)osition(Grouplist, Poslist), 

% make a new figure for the group 
new(Fig, figure), 
sendJist(Fig. append, Grouplist), 
send^icture, display. Fig), 

% clean>up 

operate_cancel(Picture, _), 

sendJiit(@group_holder, delete, Grouplist), 

demoiish(@oIdfi^hoIder), 

demol i sh(@group3ioI der), 

demol i sh(@pos_hol der), 

operate_cancel (Picture, 

clear(^rawj}al 1 ete) 

correct_position([], []). 
correct_position([G|Gl], [PlPl]) > 
send(G, position, P), 
correct_position(Gl ,P 1). 

group_cancel(Picture, _) > 

% ~ greyed_off(@oldfig_holder), 

demoli sh(@ol dfig_hbl der). 
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demolish(@group_holder), 
dem oli sh(@pos_hol <lcr), 
clear(@draw_pailete). 
operate_cancel(Picture, _) 

greycd_ofn[[]) 

greycd_of!)[[F,Fl]) > 

send(F. greyed, of!). 
greyed(Fl). 

operate_canceI(Picture. _) > 

~ send(Picture. clicked. 0), 
send(Picture, Ieft_up, 0), 
send(Picture. lefrdown, 0), 
send(Picture, left_drag, 0), 
uniqueassert(operate_flag) 

% dialog declarations 

group(_, label(‘[ Select drawing by left-diking J’,0), below, []). 
group(_, buttonCSelect', cascade(@pic, group_select, 0)), below, []) 
group(_, button('Group', cascade(@pic, group, 0)), right, []) 
group(_, buttonfCancel', cascade(@pic, group_cancel, 0)), 
right. []). 


clear_chain > 

deniolish(@oldfig_holder). 
den\olish(@group~holder). 
dem ol i sh(@pos_holder) 


% subroutines for ungroupping objects 


ungroup_object > 

not(obj ect(@drawjjal 1 ete)) -> 

(new_dialog(@draw_pallete, 'UnGroup Objects', unjgroup), 
send(@draw__pallete, open)) | true. 

% callbacks 

ungroup_select(Picture, _) > 

” retractalI(operate_flag), 

send(Picture, clicked, cascadefPicture, select_ungroup, 0)), 
process_cal 1 backs(retract(operate_flag)). ~ 

select_ungroup(Picture, _) > 

% greyed the selected figure 
get_ref(Picture, cunent. Fig), 
send(Fig, greyed, on). 


56 







scnd(Picture, clicked, 0), 
uniqueassert(operate_flag). 

unjgroup^icture, ) > 

get_ref(Picture, current. Fig), 
get^Fig, reference_point, poini(X,Y)), 

% get the graphical 
get_ref(Fig, graphicals, Ch), 
get(Ch, list^refs, Graphicals), 

% ungroupTt 

separate(Picture, Fig, Graphicals, X Y), 
send(Fig, erase), 
send(Picture, redraw), 
operate_cancel(Picture, _), 
clear(@draw_pallete). 


separate(P, F, [), ) 

separate(P, F, [GlSf], X, Y) > 
send(F, delete, G), 
get(G, position, point(Xl, Yl)), 

X2 is XI + X, 

Y2 is Yl + Y, 

send(G, position, point(X2, Y2)), 
new(Fig, figure), 
send(Fig, append, G), 
send(P, display. Fig), 
separate(P, F, Gl, X, Y) 

ungroup_cancel(Picture, ) > 

operate_canceT^icture, J, 
clear(@draw_paiiete) 

% dialog declarations 

un jgroup(_, label(’( Select drawing by left-diking. )',0), below, []). 
un_£roup(_, button('Select', cascade(@pic, ungroup_select, 0)), below, []). 
un_group(_, button('Un-group', cascade((^pic, un_group, 0)), right, [)). 
un_group(_, buttonCCancel', cascadc(@pic, ungroup cancel, 0)), 
right, []). 


% subroutines for copying object 

o/o- 

copy_object > 

send(@pic, cli jced, cascade(@pic, copy, 0)). 

copy(Picture, _) > 

get_ref(Picture, current. Fig), 
get(Fig, referencejjoint, pointpC,Y)), 
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% get the graphical 
get_ref(Fig, graphicals, Ch). 
getfCh, list refs. Graphicals). 

% copy eacli member 
rew(Figl, figure). 

duplicate^icture. Figl. Graphicals. X Y). 
send(Picture. display. Figl). 
send(Picture. clicked. 0). 

duplicate(P. F, [). ^ J. 

duplicate(P. F. [GjRest]. X Y) > 

get(G. area. area(Xl. Yl. Wl, Dl)), 
X2isXl+X + 5. 

Y2 is Yl + Y + 5. 

get refi[G. duplicate. Gl). 

send(Gl. area. area(X2. Y2. Wl. Dl)). 

send(F. append. Gl). 

duplicated?. F. Rest. X. Y) 


% - 

% subroutines for erasing object 

% - 

erase_object > 

send(@pic. clicked. cascade(@pic. erasel. 0)) 

erase 1 (Picture. _) > 

get__ref(Picture. current. Fig). 
gerref(Fig, graphicals. Ch). 
get(Ch. list_refs. (Graphical^). 
clear(Fig). ” 
send(Picture, clicked, 0) 


% - ; --- 

% subroutines for saving object 

% - 

save_object > 

” clear(@clipped). 

(not(object(@draw_j)alette)) -> 
(new_dialog(@draw_palette. 'Clip to Save’, draw^clip), 
send('^draw_palette. open)) | true). 

% callbacks 
clip(Picture. _) > 

retractall(operate_f1ag). 

send(Picture. lefrdown, cascade(Picture, start_clip. 0)). 
process_callbacks(retract(operate_flag)). 











start_cIip(Picture, Pos) > 
clear(^clipper), 
clear(@box), 
new(^clipper,figure), 
new(^box, box), 
send(^box, position, Pos), 
send(Picture, left_drag, message(@box, comer, 
send((^clipper, append, @boxX 
send(Picture, display, @clipper), 
assert(operate_flag) 

clip_cancel(Picture, _) 

uni queassert(operate_f1 ag), 
clear(@clipper). ~ 

cut_save(Picture, ) > 

~ get_re^icture, figures, Fig_Chain), 
getfFig Chain, list refs. Fibres), 
draw ft^re(@bit,Tigures), 
get((^box, area, area(X, Y, W, H)), 
send(@bit, clip area, area(X, Y. W, H)). 
get_rrf(@bit, cflp, Ciipped_Bit), 
rename(Clipped_Bit, @clipped), 
select^fi I ename(@save) 

draw_figure(Bitmap, [(^clipper]) 
draw”figure(Bitniap, [Fig|Fig_Rest]) > 

get(Fig, reference^oint, point(X, Y)), 
get_ref(Fig, graphical, Ch), 
get(Ch, liswefs, Graph_List), 
drawjgrapiucalsfBitmap, Graph_List, X, Y), 
draw_figure(Bitmap, Fig_Rest) 

draw_graphicals(Bitmap,[], _, _) 
draw_graphicals(Bitmap, [Graph|Graph_Rest], X, Y) > 
get(Graph, position, point(XT, Yl)), 

X2 is XI + X, 

Y2 isYl +Y, 

send(Graph, position, point(X2, Y2)), 
send(Bitmap, drawjn. Graph), 
send(Graph, position, point(Xl, Yl)), 
draw_graphicals(Bitniap, Graph_Rest, X, Y). 


save_done(Picture, Dialog) > 
send(@bit, clear), 
clear(@clipper), 
graph_done(Picture, Dialog) 




% 


% callbacks for saving to filename 
% if OK use the string text as filename to store the drawing 
% save drawing to Filename, and assert the drawing position as fact 

pressed(@save, *OK') > 

get(@ti, selection. Filename). 
send(@clipped, save. Filename), 

% assert the position reference 
get(@bit, clip_area, area(X. Y, W, H)), 

P [area. Filename, X, Y, W, H], 

uni queassert_area(P), 

write position, 

clear(@save), 

clear(@clipper), 

clear(@clipped) 

pressed(@save, 'Cancel') > 
clear(@clipper), 
clear(@save) 


% dialog declarations for clipping 

draw_clip(_, label('[ Left-click and drag to draw clip border. )',0), below, [)). 
draw”clip(_, button('Clip', cascade(@pic, clip, 0)), below, []) 
draw_clip(_, button('Cut&Save', cascade(@pic, cut_save, 0)), right, []) 
draw_clip(_, button('Done', cascade(@pic. save_done, @draw^alette)), right, []) 
draw~clip(_, buttonCCancel', cascade(@pic, cli^cancel, 0)), right, []) 


% subroutines for displaying objects 

display_object > 

not(obJect(@dravy)alette)) -> 
(select_filename(@show)) | true. 

pressed(@show, 'OK') 

get(@ti, selection. Filename), 

draw(Filename), 

clear(@show) 

pressed(@show, 'Cancel') 
clear(@show). 

draw(Filename) 

area(Filename, X, Y, W, H), 
new(Temp, bitmap^, H)), 
send(Temp, load. Filename), 
send(Temp, position, point(X,Y)), 
send(@pic, display. Temp). 
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% - 

% exit drawgraph 

% - 

exit_draw > 

not(object(@draw^alene)) -> 
(new_dialog(@exii, 'Prompter*, exit), 
send(^exit, open)) | true. 

% dialog declarations for exiting the program 
exit(_, label('Do you really want to exit DrawGraph?’), [)) 
exit(_, button(*OK', pressed), below, []). 
exit(_, buttonCCancel', pressed), right, [)) 

% exit the program and clear all objects 
pressed(@exit, *OK') > 

% save all pictures' position 
write_position, 
clear_draw, 
clear(@exit) 

% - 

% common subroutine used for operate 

% cancel a dialog 
pressed(Dialog, 'Cancel') > 
clear(Dialog) 

% clear everything before exit 
clear_draw > 

” clear(@maindraw), 
clear(@pic), 
clear(0operate), 
c]ear(@create), 
clear(@fill), 
clear(@pen), 
clear(@ends), 
clear(@exit), 
clear(@bit), 
clear(@ti) 

% Eof DrawGraph 
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APPENDIX D 


SOURCE CODE OF MEGRAPH21 


% ■ 

% Program 
% Purpose 
% 

% Veraon 
% 

% 

Vo Author 
% Modified by 
% Date of mod. 
•/oNote 
% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

•A 

% 

% 


: MeGraph21 

; Problem-independent code for 'means-ends tutoring'; 
tutoring for learning of sequences modelable by means-ends analysis. 
; This is a Prowindows version of Prof Rowe's METUTOR21 
intended to run on Quintus Prolog 3.0. Reorganized and 
augmented for graphics user interface. 

: Prof Neil C. Rowe 
; Francius Suwono 
: May 1. 1992 

For an application, you must define; 

(1) recommended(<difrerence>,<operator>) 

—recommendation conditions 

(2) precondition(<operator>,<factlist>) or 
precondi ti on(<operator>,<condi ti onl i st>,<factl i st>) or 
precondition(<operator>,<conditionlist>,<factlist>,<msg>) 

—gives facts required by operator, 

3- arg form requires additional facts true 

4- arg form also prints message when precondition applied 

(3) deletepostcondition(<operator>,<factlist>) or 

del etepostcond i tion(<operator>,<condi tionl i st>,<factl i st>) 
deletepostcondition(<operator>,<conditionlist>,<factlist>,<msg>) 
-gives facts deleted by op.; 

3- arg form requires additional facts true, 

4- arg form also prints message when applied 

(4) addpostcondition(<operator>,<factlist>) or 
addpostcondition(<operator>,<conditionlist>,<factlist>) 
addpostcondition(<operator>,<conditionlist>,<factlist>,<msg>) 
—gives facts added by op, 

3- arg form requires additional facts true 

4- arg form also prints message when applied 

Some optional definitions you may include; 

(5) randsubst(<op >,(<$ubstli st 1 >,<substli st2>,... ]) 

—gives random-substitution triples or quadruples, each in the form. 
[<initial-fact>,<ending-fact>,<transition-prob.>,<message to user> 
Note, first and second arguments can be the word 'none'; 
fourth argument is optional 

(6) noprefl[<operalorl >.<operator2>) 

—if the order (priority) of two operators in the 'recommended' 
rules was arbitrary, include this fact. 

(7) intro(<text>) —introductory info for student 
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•/o 

•/o 

•/o 

% 

% 

% 

•/. 

•/. 


(8) debugflag —if assened, debugging info printed re means'cnds anal 

(9) studentflag — if asserted, does not check for teacher errors 

Also: as this tutor works, it asserts ”student_erTor" facts that 
log all student mistakes To see, type *listing(student_erTor)” 
to the top level of Prolog 

To use, there are two entries: "initiali 2 e_tutor" and "tutor(Op)". 


dynamic session_num/l, error^num/1, student_erTor/6, 

top^oal/1, top_solutron/l, readbuff/l, opjist/l, 
mainline_state^4, cached/4, cached_disaster_op/2, current^state/l, 
tutor sayl_done/l. ~ ~ ~ 

no_style_checIc(single_var), unknown(A.fail), load_files(library(random)). 

session_num(0). 
runtime entry(go) 
studentlTag 

:- use_module(library(interpret_messages)). 

:- use_module(iibrary(dialog)) 

:- use~module(Iibrafy(messages)) 


% - 

% Creates the main menu and the main display window. 

% Main menu window, has three selections : 

% Go : continue the tutoring system 

% Help : display help. 

% Exit: return to system 

% - 

go.- 

main_menu. 
main_mcnu :- 

~ % open the main-menu dialog only if it is not opened yet 

not(object(@main_^menu)) -> 
(new_dialog(@maTn_menu, cais, main_menu), 
send(^main_menu, size, size(200,60)), 
send(@main_menu, open)) | 

% otherwise do nothing 
true. 

% callbacks for main menu of tutoring system 
pick(@main_menu, 'Help') 

pick(@main menu, 'Exit') :- 

clear(@main_menu), 

clear_all. 
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pick(@inain_menu, 'Go *) > 

not(objeci(@main))-> 
initiatize_tutor, 
createjgraph, 
ain. 

% dialog declarations for tutoring system main menu 
% dialog declarations for tutoring system main menu 
main^menu(_, label('Main Menu’), []) 
main~menu(_, button('Go pick), below, []) 
main”menu(_, button('HeIp', pick), right, (]) 
main~menu(_, button('Exit'. pick), right, (J) 


% Create main window for the tutoring system 
create_graph > 

% load picture position from the file posfile 
read_position. 

% create main plate 

new(@main. piclure(‘Compuier Assisted Instructions System’)), 
send(@main, size, size(930.850)), 

se''djist(@main, [horizontal^scrollbar, vertical_scrollbar], off), 

% create operator browser 

new(@oplist, browser('Computer Assisted Intructions System’)), 
send(@oplist, size, size(200,850)), 

% arrange and display position of menu boxes 
send(@oplist, right, @main), 
send(@main, open), 

% create fonts for text 

new(@font, font(gaIlant, bold, 14,0)), 

new(@font2, font(gallant, bold, 18, 0)), 

% create and display intro heading and introduction 
displayjntro, 

% create and display objectives heading 

new(@obj_headmg, text_block(’Your objectives’, area(60,82,760,20), 
center)), 

senH(@obj^heading, font, (^font), 
send(@main, display, @obj_heading), 

% create and display objectives list 
goal(GOAL), 
new((^obj text, string), 
showlist(@obj_text, GOAL, state). 
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send(@obj_text, append. 

new(^objKtive. text_bIock(@obj_text, area(60,100,760,80), center)), 
send(@n)ain, display, @objective)7 

% create and display current states heading 

new(@facts heading. text_block(The following facts are now true:'. 

area(60.192,760.20). center)), 

send(@facts_heading. font. @font), 

send(@main. display, @facts_heading), 

% create and display operator box heading 
new(@op heading, text block('Select an action; 
area(60.7r0,760.20). center)), 
send(@op^heading, font, @font), 
send(@marn, display, @op_heading), 

% create operator box 

new(@operaior_box, box(288,740,300,40)), 
send(0operatorbox. pen, 2), 
send(@main. display, @operator_box). 

% create display bitmap with border 

ctear(@di splay), 

clear(@b), 

new(0display, bitmap(926,380)), 
new(@b, box(10,298.910.384)), 
send(@main, drawjn, @b), 
send(@display, portion, point(12,300)), 
send(@main, display, @display), 

% display initial state and operators, run the tutor 
start_state(ST ATE), 
display_facts(STATE), 
retrieve_picture(STATE), 
d i spl ay_operatorJ i st 


% Display intro, intro text is created by the instructor, 
displayjntro 

% create and display intro heading 

new(@intro_heading, text_block('Introduction', area(70,12,760,15), center)), 
send(@intro_heading, font, @font), 
send(@main, display, @intro_heading), 

% display intro text 
intro(Text), 

new((gintro, text_block(Tcxt, area(70,15,760,60), center)), 
send(@main, display, @intro). 
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% - 

% Display instructor's responses. 

% - 

% display response text 
display_instructor(Text_BIock) > 
clear(@instiuctor). 

new(@instructor, text_block{Text Block, area(70,730,760,60), center)), 
send(@main, display,'^instructory 

write_instructor(Text) > 
c]ear(@i), 
new(^, string), 
send(@i, append. Text) 


% Menu for operator selection 

% browser for operator selection 
display_operaior_list > 

f nd_operators(OL), 

randperm(OL, POL), 

down list(POL), 

send(^oplist, append, 'Exit'), 

send(0oplist, selected, cascade(@oplist, operator, 0)), 

send(@opiist, clicked, 0) 

downjist(n) 

downJist(POL) > 

~ % process the first member of the list 

first(X, POLL POL). 

% process the operator, example form; 'go fire'. 

clear(@op). 

new(^op. string), 

showlist(@op. [X], op), 

sendJist(@oplist, append, @op). 

Vo build the translation table 

Vo example form translate('go fire’, go(fire)) 

get(@op. text. Text), 

F [translate. Text, X], 

uniqueassen(F), 

downJist(POLI) 
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•/, --- 

% This is the initialization of the means>ends tutor. It first runs quick error checks 
% on the teacher’s definitions, then assert some useful global variables, checks to 
% verify that the problem given is solvable 


initiarize_tutor > 

~ start_state(STATE). 
goal (COAL), 

not(check_ci)vious_errors), 

issue^warinings, 

uni queassert(topjgoal (GOAL)), 

find_operators(XL), 

uni queassert(opJ i st(XL)). 

write('Wait a moment while I analyze the problem thoroughly.'), nl, 
once_means^ends(STATE,GOAL.OPLIST2,GOALSTATE2), 
uniqueassertOop_soluti on(OPLIST2)), 
abolish(mainline_states/4), 
retract(sessi on_num(NN)), 

NNpl is NN+1, 
asserta(session_num(NNp 1)), 
abolish(tutor_says_done/l), 
abolish(error_num/l), 
asserta(eiTor_num( 1)), 
uniqueassert^urTent_state(STATE)), I. 

initialize_tutor(STATE,GOAL) > 

” writefThe problem you gave me seems impossible.'), nl,!. 


% This is a temporary top-level program to call tutor selected repeatedly. 

«/o--- 

run > 

tutor_says_done(S),! 


run 

send(@oplist, selected, cascade(@oplist, operator, 0)), 
send(@oplist, clicked, 0) 

% operator selection 
operator(@oplist, 'Exit') 
clear_all 

operator(@oplist. Text) 

% display selection 
clear(@op), 

new(@op, text_^block(Text, arca(300,740,302,36), center)), 
send(@main, display, @op). 
translate(Text, Operator), 
tutor(Operator) 
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% display the sates 


dispIay_facts(STATE) > 

*/o display facts 
clear(@facts t( 


clear(@facts_text). 
clear(@facts). 
new(^facts text, string), 
showhst(@facts_text, STATB, stale), 
send(@facts_text. append,'.'), 

new(@facts, text_block(@facts_text, area(70,210,760,60), center)), 
send(@main. display, @Ucts) ~ 


% Subroutines for intiahzation of the tutor 


% creating a list of operators 
find_operators(XL) > 

nice_bagof(X. P'^recondition(X,P), XLl), 
nice_bagof(X. C''P''precondition(X,C.P), XL2), 
append(XLl.XL2. XL) 


% Problem>definition errors: errors by the instructor building a particular 
% means ends tutor 

check_obvious_errors 

not(studentnag), 

setof([M,A],obvious_error(M,A),MAL),!, 
writepairlist(MAL) 

obvious_error('a fact predicate name is misspelled ’,W2) > 
member^,[recommended,prccondi- 
tion.deletepostcondition.addpostcondition, 
randsubst.noprefintro]), 

get misspelling(W.W2). (P= .[W2,X,Y3, P=..IW2,X,Y,Z], P=. [W2,X, 

Y,Z,R]). 

call(P). 

not(same(W2,xnopre0) 

obvious_error('precondition fact missing for action ',0) 

~ recommended(D,0), 

not(get_precondition(0,S.L)) 

obvious_etTor('deletepostcondition fact missing for action ',0) 

~ recommended(D,0), 

not(get del etepostcondi tion(0,S,L)). 









\ 


obvious_erTor<'addpostcondition fact missing for action *,0) > 
recommended(D,0). 
not(get_addpostcondition(0,S.L)) 

obvious_error('recommended fact missing for action *,0) - 
get_precondition(0,S,L), 
not(recommended(D.O)) 

obvious_error(’recommended fact missing for action *,0) > 
get_del etepostcondi ti on(0, S.L). 
not7recommended(D,0)) 

obvious_error(’recommended fact missing for action *,0) > 
get_addpostcondition(0,S.L), 
not(recommended(D.O)y 

issue_wamings > 

not(studentflag), 

setof([M,A].possible_crror(M,A),MAL),!. 
write('Wamings *), nl, 
writepairlist(MAL), nl 

issue_wamings 

possiblc_erTor('This fact is not creatable ’.F) > 
get_precondition(0,S,PL), 
member(F,PL), (atom(F), not(F= [notLJ)), 
uncreatable(Fl 

possible_error(This fact is not removable ’.F) > 
getj3recondiiion(0,S,PL). 
member(not(F),PL), 
unremovable(F) 


% Misspelling confirmation given two bound arguments 

% - 

fixspell(Wl.W2) 

atom(Wl), 
atom(W2),!. 
name(WI,AWI). 
fixspell2(AWl,AW2), 
name(W2,AW2) 

fixspell(Wl,W2) > 

W1=,[P1|L]. 

W2=..[P21L]. 
not(Pl *= P2),!, 
fixspell(Pl,P2) 
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fixspeH(Wl.W2) 

Wl« 

. W2».. 
not(Q 
fixspe 


[P.QUL]. 
[P.Q2IL]. 
»Q2).!. 
1(Q1.Q2) 


fixspcll(Wl.W2) > 

Wl= [P.O.RIIL]. 
W2».[P.Q.R2|L]. 
not(Rl » R2).!, 


rixspen(Rl,R2). 

fixspen2(AW.AW2) > 

delcteone(X.AW.AW2) 


fixspell2(AW,AW2) 

deleieone(X,AW2.AW) 


fixspeII2(AW.AW2) 

transpose{AW.AW2) 


% Computing possible misspellings in the teacher's program 


get misspelling(Wl,W2) > 
name(Wl.AWl). 

(deleteone(X,AWl,NAWl). 

deleteone(X.NAWl.AWl). 

transpose(AWl,NAWl)). 

lettercode(X), 

name(W2,NAWl), 

not(same(W 1 ,W2)) 

iettercode(X) > 

member(X,[97,98,99,100,101,102,103,104,105.106.107,108. 
109.110.111,112,113,114,115.116,117.118.119,120,121,122]) 

transpose([X.Y|L],[Y.X|L]) 

transpose([XlL],[XlM]) > 
transpose(L,M) 


writepairlist([]). 

writepairlist([[X,Y]|L]) > 

write(X), write(Y), nl, 
writepairlist(L) 
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Vo Handling of randomness 
% 

% After the postconditions are applied, random substitution (randsubst) definitions are 
Ve applied to the state These can add facts, delete facts, or change facts The first 
% argument to 'randsubst' is the operator involved, and the second argument is a list of 
% quadruples. The first argument of each quadruple is the fact being matched, the second 
% argument is the fact it should be replaced with, the third is the probability of this 
% change, and the optional fourth argument is a message printed at the time this change 
% is done Either of the first two arguments can be 'none' to allow additions and 
% deletions 

% - 

do_randsubst(O.S.NS) > 

randsubst(0,RL), I, 
do_randsubst2(RL,S,NS) 

do_randsubst(0,S.S) 

do_randsubst2([].S,S) 

do_randsubst2([[F.NF.P]|L].S.NS)> 

random(X), 

X<P. 

changestate(F,NF,S,S2),!, 
do_randsubst2(L.S2,NS) 

do_randsubst2([[F.NF.P,M]|L].S.NS) - 
random(X), 

X<P. 

changestate(F,NF,S,S2),!, 
writejnstiuctor(M), 
do_randsubst2(L,S2,NS), 
display Jnstructor(@i) 
do_randsubst2([C|L],S,NS) 

” do_randsubst2(L.S.NS) 

changestate(none.NF,S,[NF|S]) > !, 
not(member(NF,S)), 

write instructor('Random change made; fact ’), 
show7act(@i,NF,state), 
send(@i, append,' added'), 
displayjnstructor(@i).!. 

changestate(F,none,S,S2)!, 
member(F,S), 
delete(F.S,S2), 

write instructor('Random change made: fact'), 
showfact(@i, NF.state), 
send(@i, append,' removed'), 
display_instructor(@i),!. 
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changestate(F.NF.S,[NF|S3]) >!, 
member(F,S), 
dclete(F.S.S3), 

writeinstnjctoi<@i, 'Random change made fact'), 

showfact(@i. NF.state). 

send(@i, »pend,' added, and fact'), 

showfact(@i .F.state). 

send(@i, append,' removed'). 

displayJnstructor(@i).!. 

randperm(n.[]) >!. 

randperm(L.[I|PL]) 

randitem(L,I). 

delete(I.L.L2). 

randperm(L2.PL) 

randitem(L.I) - 

length(L.N). 

Npl isN+l, 

random(l.Npl,K). 

item(K,L,I) 


% 


Vo Tutoring rules 

Vo This manages the tutoring and simulation at each student selection 


Vo 


tutor(Op) > 

current_state(S), 

top_goai(G). 

once_means_ends(S,G,[TutorOplTOL],FS),!, 
tutor2(Op,S.^,TutorOp),!. 

tutoifOp) > 

write_instructor('I cannot solve the problem anymore'), 
displayjnstructor(@i) 


tutor2(Op,S,G,TutorOp) 

writedebug8(T utorOp), 
get_difrerence(G,S,D). 

handle_student_op(Op.TutorOp,S,D,FinalOp),!, 

lallcy_apply_op(FinalOp,S,S2), 

do^randsubst(FinalOp.S2,NewS), 

unIqueassert(curTent_state(NewS)), 

check_mainline_return(NewS), 

checkjf done(iQewS,G), 

display _lacts(NewS), 
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% retrieve picture here 
retrieve_picture(NewS),! 


tutor2(Op, S.G.T utorOp) 

check_if_done(S,G) > 

get_di frerence(G. S, [D. 

writeJnstructor('Congratulations! You are done'), 
asserta(njtor_,say s_done(S)). 
dispIay_instfuctor(@i).! 

checkJf_done(S,G) >!. 


% retrieve pictures according to state 

retrieve_picture(State) > 

send(@display, clear), 

% make a list of facts in the ftlenaine form (eg firejs_raging) 

convert(State, Filenames), 

filelist(F), 

retrieve(F) 

convert([], _) 

convert([S|SI], Filenames) - 

% make the filename, example form; 'firejsjocation'. 

clear(@fn), 

new(^fn, string), 

showlist(@fn, [Sj, statefile), 

get(@fn, text. Text), 

% put it in the filename list 
append(Filenames, [Text], Filenamesl), 
uniqueassert(rilelist(Filenamesl)), 

% process next member of the list 
convert(SI, Filenamesl) 


retrieve([]) >!. 

% retrieve the new state's pictures 
retrieve([FilenameIRest]) 

display _picture(Filename). 
retrieve(Rest) 

% retrieve only if the file is there, otherwise just continue 


73 





display _picture(Filcnamc)> 


% retrieve if bitmap file exists 
exist(Filename) -> 

(area(FiIename. X, Y, W, H). 
new(Bitmap, bitmap(W, H)), 
send(Bitmap, load, Filename). 
send(Bitmap, position, point(X. Y)), 
send(@display, drawjn. Bitmap))] 
true. ~ 


% This implements the tutoring strategies for different kinds of student errors Some 
% are straightforward like spelling errors and precondition violations, and cause failure. 
% Others require complex analysis with calls to 'means ends' on hypothetical states 
% created by the student Some rules notice that sometKing is wrong, but let the student 
% proceed after a warning because it is probably better teaching strategy in this case to 
% let the student find out for themselves the negative consequences of their action 
% selection. One rule does not tutor immediately, but sets up a flag in the database that 
% the student seems to be pursuing a digression, and tutors when the student returns from 
% that digression via the 'check_mainline_retum' line in 'tutor2’ 


handle_student_op(02.0.S.D,NO) - 
opJist(OL). 
not(member(02,OL)). 
writeJnstructor( "Not a valid action'), 
displayJnstructor(@i).!, fail. 

% Record your choice and student's choice before checking any more rules. 
handle_student_op(02,0,S,D,NO) > 
not(same(02,0)), 
not(xnopref(02,0)), 
session_num(Nl). 
error_num(N2), 
top_goal(G), 

asserta(student_error(Nl,N2.02,0,S,G)), 

N2pl isN2+l. 
retract(error_num(N2)). 
assena(error_num(N2pl)), fail. 

•/o Will student operator not change the state? 
handle_student_op(02,0,S,D,NO) > 
useless_op(02.S), 
get_addpostcondition(02,S,[PA)), 
get_deletepostcondition(02,S.[PD]),!, 
write instructor( 'It is already true that ’), 
showfact(@i, PA,state), 
send(@i, append,'.'), 
display _insiructor(@i) 
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handle_student_op(02.0.S.D,02) > 
xusdess_op(02,S),!, 
write_inItructor( 

That will not directly affect anything, but let us try it anyway.'), 
displayJnstructor(@i) 

% Will student action lead to unsolvability of the problem? 
handle_student_op(02,0,S,D,NO) > 
disaster_op(02,S),!, 

writejnstructoif 'You cannot ever succeed if you do that!'), 
displayjnstructor(@i),!, fail 

% Is student operator same as tutor operator? Then return 
handle_student_op(0,0,S,D,0) >!, 
writejnstructor('OK!'), 
display jnstructor(@i). 

% Or is student operator ranked as appropriate as tutor operator? 
handle_student_op(02,0,S,D,02) > 
xnopref(02,0),!, 
writejnstructor( 'OK!'), 
display jnstructor(@i) 


Vo Has the student ignored the tutor’s operator 5 times before? Then gripe 
handle_student_op(02,0,S,D,NO) > 
sessron_num(Nl). 

bagof(N2,03^S3''C^student erTor(Nl,N2,03,0,S3.G),N2L), 
length(N2L,M), 

T is M mod 5, T=0, 

write instructor('Say, why not do the'), 
show?act(@i,0,op), 
send(@i, append,' action*^'). 
display_instructor(@i), fail 

Vo Could student have confused this operator with another'^ Then warn 
handle_student op(02,0,S,D,NO) - 
confusable(02,0,S), 

write instructor( 'Warning maybe you confused that with the'), 
show?act(@i ,0,op), 
send(@i, append,' action?'), 
display Jnstructor(@i), fail 


handle_student_op(02,O.S,D,NO) > 

~ xnopref(0,03), 

confusable(02.03.S). 

desirablc_op(D,03), 

write instructor( 'Warning maybe you confused that with the'), 

showfact(@i,03,op), 

send(@i, t ,td,' action?'). 
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display_instnjctor(@i), fait 


% Could student have misread a fact in the state description? Then warn 
handle_student_op(02,O.S.D.NO) > 

get^recondi ti on(02. S.P02). 

get_di frerence(P02, S.fP]). 

member(P2.S), confusable(P,P2.S). 

write instructoif 'Warning maybe you confused 

show?act(@i. P.state), 

send(@i, ^pend, *" with ■'), 

sho>vfact(@i,P2.state). 

send(@i, append, 

display_instructor(@i), fail. 

% Does student's operator violate preconditions? Then ask for new one 
handle_student_op(02.0,S,D,NO) 

get^recondi ti on(02, S,P02), 
get_difrerence(P02,S,D2), 
not(D2=[]).!. 

writc_instructor( 'That action requires that'), 
showlist(@i ,D2,precond), 
send(@i, append, 
display_instructor(@i).!, fail 


% If student seems to be digressing, make a note for future reference. 
handle_student_op(02,0,S,D,02) > 
topJgoal(G), 
apply_op(0,S.S3). 
apply_op(02,S.S2), 

compare_solutions(S3,G.OL3,GS3,S2,G,OL2,GS2), 
subsequCTce([0|0L3],0L2). *, 
apply_ops((0|OL3].S.SL,GS4), 
el i mdups(SL,]ESL), 

asserta(mainline_states(ESL,02,S,0)), 

write_instructor( 'Your action does not seem immediately helpful, 

but I will try it'), 

display_instr\ictor(@i) 


% Grumble if student's operator will never help solve the problem 
handle_student_op(02,0,S,D,02) 
top_goal(G), 

once_means_ends(S,G.OL,FS), 
not(inember(02,OL)),!, 

writeJnstructor( 'OK, but I am not sure you need to do that action.'), 
displayJnstructor(@i) 


% Grumble if student's operator is not the highest-recommended 


handle_student_op(02,0,S,D,02) > 

top_^oal(G), get difTerence(G.S,D2). 

once_ineans_en<is(S,D2,_,_). 

desirable_opTD2.03), 

get_precohdition(03,S,PL), 

least_common_op(S,G,0.02,PL,GROOT).!, 

writejnstmctoit 'OK, but that action will not help achieve these 

desirable things:'), 

get_difference(GROOT,S,D5). 

delete_uncreatabie(DS.D6). 

randperm(p6,D7), 

showl i st(@i ,D7,precond), 

send(@i, append. 

dispIayJnstructor(@i) 

% Else grumble because you can't understand what student is doing 

handle_student_op(02.0.S,D.02) 

write_instructor( 'Your action is not what 1 would choose, 
but let us try it'), 
display_instructor(@i),! 


% Intermediate predicates used by the tutor 

% - 

xnopreft01,02) 

nopreft01,02) 

xnoprefl(01,02) 

nopreft02.01) 

useless_op(O.S) • 

apply_op(0,S,S).! 
xuseless_op(0,S7 - 

apply_op(0,S,S). 
not(randsubst(0,_)).! 
disaster_op(02,S) - 

cached_disaster_op(02,S),!. 
disaster_op(02,S) 

apply_op(02,S,S2), 
top _^oal(G). 

not(once_means_ends(S2,G,_,_)), 
asserta(cached_disaster_op(02,S)),!. 
desirable_op(D,0) 

recommended(D2,0), 

subset(D2,D) 
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% This is used when the student has picked an operator which does help solve the problem 
% but is not the highest-priority operator (i e, he has a bug in his internal 'recommend- 
% ed' definitions) It tries to find a goal that the student could be working on that 
% explains his choice of the wrong operator, and tries to tailor its explanation to what 
% should be done first to achieve that goal 

least_common_op(S,G,0.02,G2,G) > 

once_means_ends(S.G2,OL,NS), 
least~common_op2(0,02,OL) 
least_common_op(S,G,0,02,G2.DROOT) > 
get_difference(G2,S.D), 
once_means_ends(S,D,_,_), 
desirable_op(D,03). 
get_precondi ti on(03. S .G3 ), 
least_common_op(S,G2.0,02,G3,DROOT), I 

least_common_op2(0.02,OL) - 
not(member(0,OL)),' 
least_common_op2(0,02,OL) - 
notrmember(02,OL)).! 

compare_solutions(S3.G.OL3,GS3,S2.G.OL2,GS2) > 
once_means_ends(S3,G,OL3,GS3), 
once~means_ends(S2,G,OL2,GS2), \. 


% Since the tutor repeatedly reexamines slightly different paths to the goal, a lot of 
% redundancy can be avoided by having the tutor store every solution it has found (by 
% 'means ends') to a problem And fact order shouldn't matter in caching states 

%-n- 

cache_states(S.G,[],GS) > ! 
cache^tatesfS.G.OL.GS) - 

cached(S,G,OL.GS),! 
cache_states(S,G,OL,GS) - 

cached(S2.G2.0L2.GS2). 
check_permutation(S,S2), 
check permutation(G,G2),!. 
cache_states(S,Gj010L],GS) 

asserta(cached(S,G,[0|OL],GS)), 
apply_op(O.S,NS). 
cache_states(NS,G.OL,GS),! 


% This takes a list of operators and tells you what the resulting state is after applying 
% them to some starting state 

% - 

apply_ops([],S,[S].S) >!. 
apply_ops([0|OL].S.[S|SL].NS) > 
apply_op(O.S,S2), 
apply_ops(OL,S2,SL,NS) 









appIy_op(O.S.NS) > 

get jjreconditi on(0, S ,PCL). 

get_dinerence(PCL,S.[]), 

get'deletepostconditionCO.S.DP), 

del etei tern s(DP, S, S2), 

get addpostcondition(O.S,AP). 

union(AP.S2.NS).!. 

taIky_apply_op(O.S.NS) > 

^t_j)recondition(0,S.PCL), 

get_difTerence(PCL.S.[]X 

get”deletepostcondition(0,S,DP). 

deleteitems(DP,S,S2), 

get addpostcondition(0,S.AP). 

union(AP,S2.NS). 

print_optional_message_d(0,S), 

print~optional message_a(O.S), ? 


% This checks for when the student returns from a digression, so as to tutor him at that 
% point. 

check_mainline_rctum(S) - 

main!ine_ states(SL,0,0S,B0), 
check_mainline_return2(S,SL,0,0S,B0) 
check_mainlinc_return(S) ” 

check_mainline_retum2(S,[S2|SL],O.OS,BO) 
permutemember(S,iS2j),!, 

writeJnstructor('You are returning to a previous state'), 
di splay jnstructor(@i). 

check_mainlinc_retum2(S,SL,0,0S,B0) > 
permutemember(S,SL), 

write instructor( 'Do you see now that your choice of the'), 
showFact(@i,0,op). 

send(@i, append,' action in the state with the facts ['), 
showlist(@i,OS,state), 

send(@i, ^pend,'] was not the best choice, the'), 
sho\^fact(@i,BO.op), 

append(@i,' action would have been better.'), 

retract(mainline_states(SL,0,OS,BO)), 

displayjnstructor(@i). 

confusable(0,0,S) >!, fail. 

% Two actions are confusable if they do the opposite things 
confusabie(OI,02,S) > 

get_d el etepost cond i ti on(01, S,DL 1), 
get^del etepostcondi tion(02, S,DL2), 
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gei_addpostcondition(01 .S,DL2), 
get_addpostcondition(02,S,DL 1),! 

% Two actions or literals are confusable if their first word is identical 
confusable(01,02,S) > 

01=..[P1R1].02* [P|R21.!. 


•/o Or if they are words whose first two letters are identical, 

% or where you can delete first one or two letters to get the other word 
confusable(01.02.S) > 

atom(Ol), atom(02). 

name(01 .[C1 .C2|NO 1 ]). name(02.IC3.C4|N02]). 

(same(N01.N02). 

same(N01.[C3.C4|N02]). 

same(N02,[Cl.C2|N01]). 

same(IC21N0l].[C3,C4lN02]); 

same([C4|N02],[Cl.C2|N01])).!. 


O/o -- 

% The original means-ends program (used for 'what if reasoning) 

% 

% Note that this works little differently from ’means_ends_tutor' in that it checks for 
% infinite loops for several situations that the earlier definition does not A goal-state 
% stack is kept to check new goals and states against Random substitution via 'randsubst' 
% is ignored, so in fact the solution paths found by this program may be quite different 
% from those typically encountered in the tutor, and in some pathological cases with 
% probabilities of 1 or 0 the results of this program may be in fact impossible, though 
% that is unlikely 

once means ends(STATE,GOAL,OPLIST,GOALSTATE) > 

rneans_ends(STATE.GOAL,OPLlST,GOALSTATE), 
cache_states(STATE.GOAL,0PL1ST,G0ALSTATE),' 

means_ends(STATE,GOAL,OPLlST,GOALSTATE) > 

means_ends2(STATE.GOAL.OPLlST,GOALSTATE,n), 

writedebug?. 

means_ends2(STATE,GOAL,OPLIST,GOALSTATE,STACK) > 
cached(STATE2,GOAL2,OPLIST.GOALSTATE), 
check_pennutati on(GO AL,GO AL2), 
check_permutation(STATE,STATK),!, 
writedebug6(STACK),! 

means_ends2(STATE,GOAL,OPLIST,GOALSTATE,STACK) - 
member([STATE,GOAL],STACK),!, 
writedebug4(STATE,GOAL,STACK),fail 

means_ends2(STATE,GOAL,[].STATE,STACK) 
get_difrerence(GOAL,STATE,[]),!. 
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means_ends2(STATE.G0AL.0PLIST.G0ALSTATE.STACK) - 
get difTerence(GOAL.STATE,D). 
desTrable_op(D.OPERATOR). 
getj)recondition(OPERATOR,STATE,PRELIST). 
all achievable(STATE.PRELlST). 
wntedebug 1 (D.OPERATOR.STACK). 
means ends2(STATE,PRELlST,PRE0- 
PLIST.PRESTAfE.[[STATE,GOAL]|STACK]). 

writedebug2(PRESTATE.D.0PERAT0R.STACK). 
get deIetepostcondition(OPERATOR,PRESTATE.DELETEPOSTLIST). 
deIeteitems(DELETEP0STLIST.PRESTATE,PRESTATE2), 
get addpostcondition(OPERATOR.PRESTATE,ADDPOSTLIST), 
union(ADDPOSTLIST.PRESTATE2.POSTLIST). 
means ends2(P0STLIST,G0AL,- 
P0ST0PLIST.G6 aLSTATE.[(STATE.G0AL]|STACK]), 

writedebug3(G0ALSTATE,0PERAT0R,STACK), 

append(PREOPLIST.(OPERATORlPOSTOPLISTJ.OPLIST) 

means_ends2(STATE.GOAL.OPLIST.GOALSTATE.STACK) > 
writedebug5(STATE.G0AL.STACK),!, fail. 


%- 

% Debugging tools 

®/o These are enabled when the user asserts the no-argument predicate 'debugflagV 

0 /,- 

writedebugl(D,O.STACK) - 
noi(debugflag),! 

writedebugl(D,0,STACK) > 

length(STACK.NMl). 

NisNMl+1. 
write('» Action'), 
write(O), 

write(' suggested at level'), 
write(N), 

writeCto achieve difference of [’), 

write(D.state), 

writeCr). 

I.nl 

writedebug2(S,D,0.STACK) 
not(debugflag),!. 

writedebug2(S,D,0,STACK) > 

length(STACK,T^l). N is NMl+1. 

write( ’»Action'), 

write(O), 

writeC applied at level'), 
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write(N), 

write(’to reduce difference of ['), 

showlist(D,state), 

writeC]'), 

write('in state in which '), 
write! ist(S,state). 

!.nl 

VTiledebug3(S.O.STACK) > 
not(debugflag),!. 

writedebug3(S,0,STACK) > 

length(STACK.NMl). 

N isNMl+1, 
write( '»Level'). 
write(N), 

writeC terminated at state in which *), 

writelist(S,state). 

i.nl 

writedebug4(S,G.STACK) > nof(debugf]ag), •. 

writedcbug4(S,G,STACK) > 

write( '»»Reasoning avoided an infinite loop at level'), 
Iength(STACK,NMl). 

N is NMl + l, 
write(N), 

writeC where problem was identical to that at level'), 

index(IS.G].STACK.I). 

write(I), 

!,nl 

writedebug5(STATE,GOAL,STACK) > 
not(debugflag),!. 

writedebug5(STATE,GOAL,STACK) > 

write( ’»»Unsolvable problem at level ’), 
length(STACK.NMl). 

N is NMl+1, 
write(N), nl, 
writeC for state'), 
wri tel i st(ST ATE.state), 
writeC and goal'), 
writelist(GOAL,state), 
nl 

writedebug6(STACK) > 

not(debugflag),!, 

writedebug6(STACK) 

write( '»»Previously computed solution used at level'), 
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length(STACK.NMl). N is NMl+l, 
write(N). 

!.nl 

writedebug? > 

not(debugflagX !■ 

writedebug? > nl,!. 

writedebug8(0P) 

not(debugflag).!. 

wriledebug8(0P) > 

write( 'The tutor prefers action'), 
writefact(OP,op). 

!.nl 

flag_errors > 

uniqueassert(debugflag) 


unflag 

retract(debugflag) 


«/, - 

% Miscellaneous utility functions 


all_achievable(S,G) 

get_difTerence(G,S,D). 

notTunachievable_member(D)) 

delete_uncreatable([],[]) 

delete_uncreatable([XlL],M) > 
uncreatable(X).!, 
delete_uncreatable(L,M) 

delete_uncreatable([X|L].[X|M]) - 
delete_uncreatable(L,M) 

unachievable_member(D) > 
mcmberCF.D), 

(atom(F), not(F=. [notlj)), 
uncreatable(F),!. 

unachievabIe_member(D) > 
member(not(F),D). 
unremovable(F),!. 

uncreatable(F) > 

not(in_addpostcondition(F)),» 
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unremovableCF) > 

not(in_dcletcpostcondition(F)), 

in_deletepostcondition(F) >!, 

any_deletepostcondition(0,L), 
membcr(F,L),!. 

in_addpostcondition(F) > 

any_addpostcondition(0,L), 
inembcr(F,L),!. 

added_by_randsubst(F) > 

randsubst(0,RSL), 
inember([_.Fl_].RSL).!. 

deleted_by_randsubst(F) - 

randsubst(0,RSL), 
ineinber([FLJ.RSL),!. 

any_addpostcondition(0,L) > 

addpostcondition(O.C,L,M) 

any_addpostcondition(O.L) > 

addpostcondition(0,C.L) 

any_addpostcondition(0,L) > 

addpostcondition(O.L) 
any_deletepostcondition(0,L) * 

del etepostcondi ti on(0,C,L,M) 

any_deletepostcondition(0,L) > 

~ deletepostcondition(0,C,L) 

any_delctepostcondition(0,L) - 

deletepostcondition(0,L) 


get_deletepostcondition(0,S.L) - 

deletepostcondition(0,C,L,M), 
factsubset(C,S),!. 

get_deletepostcondition(0,S,L) > 

~ deletepostcondition(O.C.L), 

factsubset(C.S).! 

get_deletepostcondition(0,S.L) > 

” deIetepostcondition(0,L) 


get_addpostcondition(0,S,L) - 






»ddpostcondition(O.C,L,M). 
factsubset(C,S),!. 

get_addpostcondition(0,S,L) 

addpostconditjon(0,C,L). 
factsubset(C.S),!. 

get_addpostcondition(0,S.L) > 
addpostcondition(O.L) 


getj3recondition(0,S,L) > 

precondition(O.C,L.M). 
factsubset(C,S),!. 

•get_preconditioT>(0,S,L) > 

precondition(0,C.L). 
factsubset(C,S),! 

getj3recondition(0,S,L) 

precondition(0,L) 


print_optional_message_d(0,S) - 

deletepostcondition(O.C.L.M). 
factsubset(C,S), 
writejnstructo^M).!, 
displayJnstajctor(@i) 

prim_optional_message_d(0,S) -). 

print_optiona!_message_a(0,S) - 

addpostcondition(0,C,L,M), 
factsubset(C.S), 
writejnstructor(M),!, 
di splay jnstructor(@i) 

print_optionaI_mcssage_a(0,S) > ! 


% - 

% Freeing objects 


clear_all > 

clear(@inain), 

ciear(@di$play), 

clear(@bit), 

clear(@oplist), 

clear(@operaior_box), 

cl ear(@ obj ecti ve). 
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clcar(@obj_heading). 

clear(@obj_text), 

clcar(0facts_heading), 

cIear(@op_heading). 

cIear(@intro), 

clear(@intro_heading), 

clear(@font)7 

cIear(@font2) 


% Eof MeGraph21 




APPENDIX E 


SOURCE CODE OF COMMON 


•/.== 
% Program 
Vo Purpose 
Vo 

Vo Author 
Vo Date 


; common 

This program is a collection of general procedures used in common by 
DrawGraph and MeGraph21 
: Francius Suwono 
: April 6. 1992 


% dialog and browser for geting filename 

% - 

sclcct_filename(Dialog) - 

Vo make the dialog 

new_dialog(Dialog, 'Select Filename’, select name), 

Vo make the browser 
clear(@browser), 

new((^rowser, browser('Filename selection')), 
scnd(@browser, size, size(250,150)), 
send(@browser, selected, cascade(@browser, filename, 0)), 
send(@browser, clicked, 0), 

% fill the browser with filenames from facts 
find_all_facts(FL), 
fill_browser(@browser, FL), 

Vo arrange the browser position, and open it 
send(@browser, above. Dialog), 
send(@browser, open), 
send(@browser, sort) 

Vo callbacks 

filcname(Browscr, Text) - 

new(Filename, string), 
send(Filename, append. Text), 
send(@ti, selection. Filename^ 

% dialog declarations for getting filename 
select_name(^label('Click or type filename.’), below,[)) 
select_name(^ti, text_item('Filename ", 0), below, []) 
select”name(_, button('OK', pressed), below, []) 
select”name(_, buttonfCancel', pressed), right, Q). 
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% - 

% derive filenames from facts, and put it in a browser window 

fill_browser(Browser, []) 

fiU_browser(Browser, [XjFLl]) > 

% make the filename, example form: 'firejsjocation'. 

clear(@fn), 

new((^fn, string). 

showlist(@fn, [5^. statefile). 

% put it in the browser list 
sendJist(Browser, append, @fn), 

% process next member of the list 
fill_browser(Browser, FLl) 


% creating a list of facts 
find_all_facts(XL) 

~ nice_bagof(X,0''recommended(X,0),XLl), 
nice~bagof(X,0''addpostcondition(0,X), XL2), 
nice_bagof(X,0^precondition(0,X), XL3), 
start” statepCL4), 
append(XLl. XL2, XI), 
append(XL3. XL4, X2), 
append(Xl,X2, X3), 
flauen(X3, X4), 
elimdups(X4, XL) 


% --- 

% write all picture positions into posfile 

o/o- 

write_position 

tell(posfile), 

writej30S, 

told 

write_pos 

repeat, 

((area(Filename, X, Y, W, H), 

write('area('), 

write(Filename), 

writer,'), 

write(X), 

writeC,'). 

write(Y), 

writeC'), 

write(W), 
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writeC.*). 

write(H). 

WriteC)’). 

write("). 

nl, 

fail)!!). 


% clear any object 
clear(X) > 

object(X) -> 
sendpC,destroy) | true 

demolish(X) > 

object(X) -> 
send(X, demolish) | true 


% - 

% read all picture positions from posfile 

% - 

read__position > 

see(posfile), 

processjjosition, 

seen. 

processjjosition > 

read(Term), 

process(Term) 

process(end_of_fiIe) >!, 

process(Term) > 

uni queassert(T erm), 
processjjosition 


% input file existence checking 

% - 

exist(Filename) > 

see^ilename), 

nofileerrors, 

seen. 


% - 

% Natural language processing 

% These routines are not perfect, but they seem to work well most of the time. 
% 'showlist' takes a third argument designating what kind of list it is, since 
% these things are output differently depending on whether they are states, 

% preconditioned lists, or operators The output is a text object. 

% - 


89 












V 


showlist(Text. [],R) >!. 

showlistrrext. [X].R) > 

showfact(Text, X,R) 

showlist(Text, [X,Y],R) > 

showfact(Text, X.R). 
send(Text, append,' and'), 
showfact(Text, Y,R). 

showUstCText, L.R) > 

showiist2(Text, L. R) 

showIist2(Text, [X],R) 

showfact(Text, X.R) 

showlist2(Text. [X1L],R) > 

sho\vfact(Text. X. R), 
send(Text, append.'), 
showlist2(Text, L.R). 


% Prowindows version output format for states 

% - 

showfact(Text. F.state) - 
atom(F), 

send(Text, append, 'it is'), 
send(Text, append, F), 

!. 

showfact(Text, not(F),state) > 
atom(F), 

I 

•» 

send(Text, append, 'it is not'), 
send(Text. append, F), 
f. 


showfact(Text, not(F),state) > 
F=..[P,X]. 
atom(X), 

I 

•» 

send(Text, append, X), 
is_form(X,IX), 
send(Text, append,''), 
send(Text, append, 
send(Text, append,''), 
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send(Text, append, 'not ’), 
send(Tcxt, append. P). 

!. 


showfact(Text. not(F).state) 

F*.[P.X]. 

I 

•a 

send(Text. append, X), 
is_forni(X.IX). 
selidCText, append.''), 
send(Tcxt, append, IX). 
send(Text, append,' not'), 
send(Text. append, P). 

!. 

showfact(Text, not(F),state) > 

F=. [status.X.Y], 

\ 

♦ s _ 

send(Texl, append, 'the'), 
send(Text, append, X), 
send(Text, append,' status'). 
is_form(Y.IY). 
send(Text. append,''), 
send(Text, append, lY). 
send(Text. append,' not'), 
send(Text, append, Y), 

!. 

showfact(Text, not(F),state) > 

F= [P.X.Y], 

I 

• ♦ 

send(Text, append, X). 
send(Text. append, ’'), 
send(Text, append, Y), 
is_form(Y.IY), 
send(Text, append,''), 
send(Text. append, lY), 
send(Text, append,' not'), 
send(Text, append, P). 

!. 

showfact(Text, F.state) > 

F=.[P,X]. atom(X). 

I 

•a 

send(Text, append, X), 
is_form(X,lX), 
send(Text, append,''), 
send(Text, append, IX), 
send(Text, append,''). 
send(Text, append, P), 
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t 

showfact(Text, F.state) 

. F».[P,X]. 

I 

*» 

showfact(Text, X.state), 
is_form(X,IX), 
scnd(Text, append,''), 
send(Text, append, IX). 
send(Text, append, *'). 
send(Text, append, P), 

I. 

showfact(Text, F.state) > 
F=..(status.X.Y]. 

I 

•« _ 

send(Text, append, 'the'), 
send(Text, append. X). 
send(Text, append,' status'). 
is_form(Y, lY), 
selid(Text, append,''), 
send(Text, append, lY), 
send(Text, append,''), 
send(Text, append, Y), 

I 

showfact(Text, F,state) > 

F=..[P,X.Y), 

I 

•» 

send(Text, append, X), 
send(Text, append,''), 
send(Text, append. Y), 
is_form(Y,IY), 
se'nd(Text, append,''), 
send(Text, append, lY), 
send(Text, append,''), 
send(Text, append, P), 

!. 


% - 

% Filename from facts 

O/o- 

showfact(Text, F.statefile) > 
atom(F), 

send(Text, append, ’itjsJ). 
send(Text, append. F)T 
!. 

showfact(Text, not(F),statefile) > 
atom(F), 

• 9 
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\ 


send(Text, append. '>tJs_notJ). 
send(Text, append, F), ~ 

I. 

showfact(Text, not(F),statefile) > 
F«..IP.X]. 
atom(X), 

I 

•» 

send(Text, append. X). 
is_form(X.IX). 
send(Text, append, 
send(Text, append, IX), 
send(Text, append. '_not_'), 
send(Text, append. P), ~ 

!. 

showfact(Text, not(F),staterile) 

F=..IP.X]. 

I 

• ♦ 

send(Text, append, X), 
is_form(X.IX). 
selidCText, append. 
send(Text, append. IX). 
send(Text, append, '_not_'), 
send(Text. append. P). 

! 


showfact(Text, not(F),statefiIe) > 
F=..(status,X,Y], 

!. 

send(Text, append, ’thej), 
send(Text, append, X), 
send(Text, append, '_status_'), 
is_form(Y,IY), 
send(Text, append,'_'), 
send(Text, append. lY). 
send(Text, append, '_not_'), 

! 


showfact(Text, not(F),statefiIe) 
F=.[P.X.Y], 

!, 

send(Text, append, X), 
send(Text, append. ’J), 
send(Text, append, Y), 
is_form(Y,IY). 
send(Text, append,'_’), 
send(Text, append, lY), 
send(Text, append, 
send(Text, append, P), 
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showfact(Text, F.statefile) 
F».[P,X]. 
atom(X), 

I 

send(Text, append, X). 
is_forni(X.IX). 
se'nd(Text, append, 
send(Text, append, IX). 
send(Text, append, 
send(Text, append. P), 

!. 


showfact(Text, F.statefile) > 

F= [P,X], 

s*howfact(Text, X.statefile), 
is_form(X,IX). 
se'nd(Text, append,'_'), 
send(Text, append, IX), 
send(Text. append,'_'), 
send(Text, append, P). 

!. 


showfact(Text, F.statefile) > 
F*..lstatus,X,Y), 

send(Text, append, ’thej). 
send(Text, append, X), 
send(Text, append, '_status_'), 
is_form(Y,lY), 
send(Text, append,'_'), 
send(Text, append, lY), 
send(Text, append,'_'), 
send(Text, append, Y). 

!. 


showfact(Text, F.statefile) 
F=..[P,X.Y]. 

!, 

send(Text, append. X), 
send(Text. append,'_’), 
send(Text, append, Y), 
is_fonn(Y,IY), 
send(Text. append,'_'), 
send(Text, append, lY), 
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send(Text, append. 
send(Text, append, P), 
!. 


\ 


% - 

% Prowindows version: output for preconditions 

showfact(Text, F.precond) 
atom(F), 

send(Text, append, 'it must be'), 
send(Text, append, F), 

!. 

showfact(Text, not(F),precond) 
atom(F), 

I 

•* 

send(Text, append, 'it must not be *). 
send(Text, append, F), 

!. 

showfact(Text, not(F),precond) - 
F= [P.X], 

s'howfact(Text, X.state), 
send(Text. append,' must not be'), 
send(Text, append, P), 

!. 

showfact(Text, not(F),precond) 

F=..[P.X,Y]. 

I 

• t 

send(Text, append, X), 
send(Text, append,''). 
send(Text, append, Y), 
send(Text, append,' must not be'), 
send(Text, append, P), 

!. 

showfact(Text, F.precond) 

F=..[P,X], atompC), 

I 

• f 

send(Text, append. X), 
send^Text, append, ’ must be'), 
send(Text. append, P), 

!. 

showfact(Text, F.precond) 

F=..[P,X1. 

I 

•» 

showfact(Text, X.state), 
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B 


% 


send(Text, append,' must be'), 
send(Text, append, P), 

!. 

showfact(Texi, F,precond) 

F-.[P,X,Y], 
send(Text, append, X), 
send(Text, append, *'), 
send(Text, append, Y), 
send(Text, append,' must be ')> 
send(Text, append, P), 
j. 


% Prowindows version; output format for operators 

showfact(Text, F, op) 

F= [P, Aj. 
send(Text. append. P), 
send(Text, append,''). 
send(Text, append. A), 

! 

showfact(Text, F, op) 

F= [P,A,B]. 
send(Text, append, P), 
send(Text, append,''). 
send(Text, append, A), 
send(Text, append,''), 
send(Text, append, B), 

!. 

showfact(Text, F, op) 

send(Text, append, F), 

!. 

showfact(Text. F, op) 

send(Text, append, F) 


% - 

% Prowindows version: output format for filename 

showfact(Text, F, fn) 

F = .[P. A], 
send(Text, append, P), 
send(Text, append,'_’), 
send(Text, append. A), 

I. 
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showfact(Text, F, fn) > 
F-.[P.A.B]. 
send(Text, append, P), 
send(Text, append. 
send(Text, append. A), 
send(Text, append. 
send(Text, append. B). 

I. 

showfact(Text. F. fn) 

append(Text, F), 

!. 

showfact(Text, F, fn) > 

send(Text, append, F) 


% A simple heuristic is used for plurals the thing before the 'is' 
% is plural if it ends in 's' 
is_form(X,'is') > 

not(aiom(X)), 

! 

is fonn(X,'are') > 

name(X.NX). 

lastCNX.115). 

!. 

is_form(X,'is') 


% - 

% List utilities 

% - 

% delete one item from a list 
deleteone(X.[XlL],L) 

deleteone(X,[YlL].[Y|M]) > 
deleteone(X,L,M). 

% get the difference 
get_difTerence([],S.[]). 

get_difference([not(P)lG],S,G2) > 

not(singIemember(P,S)), I, 
get_difrerence(G,S,G2). 

get_difrerence([PlG],S,G2) > 

singiemember(P,S),!, 
get_difference(G,S,G2). 


97 





get_difTcrence([P|G],S,[PlG2]) > 
get_difTerence(G.S,G2) 




% test for a subset of a list 
subset([],L) 

$ubset([XlL].L2) > 

singlemember(X,L2), 

subset(L,L2). 

% test for factf subset 
factsubset([].L) 

factsubset([not(P)|L],L2) - 

not(singlemember(P.L2)).!. 
factsubset(L.L2) 

factsubset([not(P)|L],L2) -!, fail 

factsubset([PlL].L2) > 

singIemember(P,L2), 

factsubset(L.L2) 


% test for member of a list 
member(X,L) > 

append(Ll,[X|L2],L) 


% test for a single member 
singlemember(X,[XlL]) > ! 

singlemember(X.[Y|L]) > 

si ngl emember(X,L) 

% unions two lists 
union([],L.L) 

union([XlLl],L2,L3) > 

singlemember(X,L2),!, 
union(Ll,L2,L3) 

union([XlLl],L2.[XlL3]) > 
union^I,L2,L3) 


% delete same items from a list. 
deleteitems([],L,L). 

deleteitems([X|L],L2.L3) > 
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delctc(X,L2,L4). 

dcleteitems(L.L4,L3) 


% delete an item from a list 
deIete(X.[],[]) 

deIete(X.pC|L].M) >!. 

deIete(X.L,M) 

delete(X.[Y|L].[Y|M]) > 
deIete(X.L.M) 


% test for an item 
item(K,[].I) > !, fail 

item(K,[X|L],X) - 
K=<1.! 

item(K.[X|Ll.Y) 

KMl isK-1. 
item(KMl,L.Y) 


% check permutation 
check_permutation(L,M) > 
subset(L,M), 
subset(M,L).! 


% check for subsequence 
subsequence([].L) >!. 

subsequence([X|L],p(|M]) > !, 
subsequence(L,M) 

subsequence(L,[XlM]) > 

5ubsequence(L,M) 


% permute member of a list 
permutemember(X,[X|L]) >!. 

permutemember(X,[Y|L]) > 
subset(X,Y), 
subset(Y,X).!. 

permutemember(X,[Y|L]) > 

permutememberP(,L). 








% last item of a list 
last([X].X). 

last([X|L].Y) - 

last(L.Y). 


% first item and tail of a list 
first(X. Tail, L) > 

append([X], Tail, L) 


% eliminate duplicate items from a list 
elimdups([],[]). 

elimdups([X|L],M) > 

singlemember(X.L).!, 
elimdups(L,My 

elimdups([XlL],[XlM]) 

eIimdups(L,M) 

% unique assert of fact. 
uniqueassert(Q) > 

retract(O),!, 
asserta(Q). 
uniqueassert(Q) > 

assena(Q) 

% unique assert of picture position facts 
uniqueassert area(P) > 

PV.[area, F, X, Y,W, H], 
retracta]|(area(F, , , ,_)). 

I 

• a 

asserta(P) 

uniqueassert_area(P) > 
asserta(P) 

index(X,[X|L],l) -! 

index(X,[Y|L],N) > index(X,L,Nml), N isNml+1. 
same(X,X). 

nice_bagoftX,P,L) > bagof(X,P,L), ?. 

nice_bagof(X,P,[]). 

% to take out members of list 
flattcn([Head | Tail].FL) 
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f]atten(Head, FlatHead), 
flaticn(TaiI, FlatTail), 
append(FlatHead. FlatTail. FL) 

flatien([]. []) 

flatten(X. [X]) 

% min function 
minpc, Y, Z) > 

X>Y-> 

ZisYIZisX 

% not predicate 
not(X) >\+X 

% Eof common 
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APPENDIX F 


TEACHER’S DEnXIONS FOR THE FIRE FIGHTING TUTOR [ROWE 90) 
% Program ; mefire 

% Purpose ; This program is created for tutoring fire fighting aboard ships 
% Author : Prof Neil C. Rowe 

% Date : October 1989 

% Source : Naval Postgraduate School. Report NPS52-90-003, Means-Etuis 

% Tutoring, Multi-Tutoring andMeta-Tutoring, by Neil C. Rowe, 

% p. 9, February 1990 

% - 

intro('You are the fire team leader on a U S Navy ship. A fire has been reported') 

recommended([treated(casualty)], direct(medical. corpman)) 
recommended([treated(casualty)j, giveCfirst, aid)). 
recommended([not(present(casualty))]. remove(casualty)) 
recommended( not(unreplaced(casualty))], replace(casualty)). 
recommended( equipped(team)], equip). 
recommended([deenergized(fire. area)], deenergize) 
recommended( set(boundaries)], set(boundaries)) 
recommended([confronted(fire)], approach(fire)). 
recommended([out(rire)], extinguish) 
recommended( watched(reflashing)], set(reflash, watch)). 
recommended( yeriried(out(fire))], verify(out)). 
recommended([safe(gases)], test(gases)) 
recommended([tested(oxygen. tester)], test(oxygen. tester)) 
recommended( safe(oxygen)], test(oxygen)) 
recommended([not(smokey)], desmoke) 
recommended([estimated(water)], estimate(water)). 
recommended([not{watery)], dewater). 
recommended([not(equipped(team))], store(equipment)) 
recommended([debriefed(team)], debrieO 
recommended( not(watched(reflashing))], secure(reflash, watch)). 
recommended( location(rire)]. go(fire)) 
recommended([location(repair, locker)], go(repair, locker)) 
recommended([safe(X)], wait). 

precondition(remove(casualty), present(casualty), treated(casualty). 
not(dead(casualty))]) 

precondition(direct(medical, corpman), [present(casualty), 
present(medical, corpman), not(dead(casualty))]). 
precondition(give(first, aid), [present(casuity), not(present(medical, corpman)), 
not(dead(casualty))]). 

precondition(replace(casualty), [unreplaced(casualty), not(present(casualty))]). 
precondition(equip, [location(repair, locker), not(equipped(team))]). 
precondition(deenergize, [location(flre)]). 


102 












precondition(set(boundaries), [location(fire), not(set(boundaries))]). 
precondition(approach(fire), [location(fire). not(confronted(rire)), raging(fire), 
set(boundaries), equipped(team)]) 

precondition(extin^ish, [location(fire), raging(fire), equipped(team), 
deenergized(rire. area), set(boundaries). confronted(ftre), 
not(dead(casuaIty))]) 

precondition(set(ref1ash, watch), [location(fire), not(watched(ref1ashing)). 

verified(oul(fire)), safe(gases), safe(oxygen)]). 
precondition(verify(out), [location(fire). out(fire)]). 
precondition(test(gases), [location(rire), out(fire), equipped(teain)]). 
precondition(test(oxygen, tester), [equipped(team)]). 
precondition(test(oxygen), [location(fire), out(fire). tested(oxygen, tester)]). 
precondition(desmoke, [location(fire). out(fire). smokey]). 
precondition(estimate(water), [location(ftre), watery]). 
precondition(dewater, [location(fire), watery, estiinated(water)]). 
precondition(store(equipment), [location(repair. locker), equipped(team)]). 
precondition(debrief, [location(repair. locker), not(equipped(team)), 
watched(reflashing)]) 

precondition(secure(ref1ash, watch), [watched(reflashing), debriefed(team)]). 
precondition(go(fire), [location(repair, locker), not(dead(casualty))]). 
precondition(go(repair, locker), [location(fire), not(dead(casuaIty))]y 
precondition(wait, []). 

deIetepostcondition(remove(casualty). [present(casualty), treated(casualty)]). 
deletepostcondition(direct(medical, corpman), []). 
deletepostcondition(give(first, aid), []) 
deletepostcondition(replace(casualty), [unreplaced(casualty)]) 
deletepostcondition(equip, []) 

deIetepos(condition(deenergi 2 e, [energized, not(smokey), tested(gases), 
tested(oxygen), debriefed(team), verified(out(fire))]). 
deletepostcondition(set(boundaries), [tested(gases), tested(oxygen), debriefed(team), 
verifjed(out(fire)), confronted(fire)]). 

'? 2 letepostcondition(approach(fire), [tested(gases), tested(oxygen), debriefed(team), 
verified(out(fire))]). 

deletepostcondition(extinguish, [raging(fire), tested(gases), tested(oxygen), 

verified(out(fire)), watched(reflashing), debriefed(team), setCboundaries), 
safe(gases), safe(oxygen), unsafe(gases), unsafe(oxygen), confronted(fire)]). 
deletepostcondition(set(reflash, watch), []). 
deletepostcondition(verify(out), []). 

deletepostcondition(test(gases). [unsafe(gases), safe(gases)]). 
deletepostcondition(test(oxygen, tester), []). 
deletepostcondition(test(oxygen), [unsafe(oxygen), safe(oxygen)]). 
deletepostcondition(desmoke. [smokey, debriefed(team), unsafe(gases), tested(gases), 
unsafe(oxygen), tested(oxygen)]). 
deletepostcondition(estimate(water), []). 

deietepostcondition(dewater, [watery, estimated(water), debriefed(team), tested(gases), 
unsafe(gases), tested(oxygen), unsafe(oxygen)]). 
deletepostcondition(store(equipment), [equipped(team)]). 
deIetepostcondition(debrief, []). 

deletepostcondition(secure(renash. watch), [watched(reflashing)]). 
deletepostcondition(go(fire), [location(repair, locker)]). 
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deletepostcondition(go(repair, locker). [location{fire), confronted(firc), tested(gases), 
tested(oxygen)]) 

deIetepostcondition(wait, [tested(gases). tested(oxygen), unsafe(gases), 
unsafe(oxygen)]). 

addpostcondition(reinove(casualty), [unreplaced(casualty)]) 
addpostcondition(direct(medicaI, corpman). [treated(casualty)]) 
addpostcondition(give(first. aid), [treated(casualty)]). 
addpostcondition(rep1ace(casuaIty), []). 
addpostcondition(equip, [equipped(team)]). 
addpostcondition(deenergize, [deenergizedCfire, area), smokey]). 
addpostcondition(set(boundaries), [set(boundaries), smokey]). 
addpostcondition(approach(rire), [confrontedCfire), smokey]). 
addpostcondition(extinguish. [outCfire), watery, smokey]). 
addpostcondition(set(reflash, watch), [watched(reflashing)]). 
addpostconditioit(verify(out), [verified(out(rire))]). 
addpostcondition(test(gases). [tested(gases). safe(gases)]) 
addpostcondition(test(oxygen. tester), [tested(oxygen, tester)]) 
addpostcondition(test(oxygen), [tested(oxygen). safe(oxygen)]). 
addpostcondition(desmoke, []) 
addpostcondition(estimate(water). [estimated(water)]) 
addpostcondition(dewater, []). 
addpostcondition(store(equipment), []) 
addpostcondition(debrief, [debriefed(team)]) 
addpostcondition(secure(ref1ash, watch), []) 
addpostcondition(go(rire). [location(fire)]). 
addpostcondition(go(repair, locker). [location(repair, locker)]). 
addpostcondition(wait. []) 

randsubst(equip, [[none, present(medical, corpman), 0.5]]). 

randsubst(api)roach(fire), [[none, present(casualty), 0.15, 'A team member got burned']]). 
randsubst(extinguish. [[out(fire), raging(fire), 0.3, 'Fire is still raging.'], 

[none, present(casuaity), 0.15, 'A team member got burned.']]). 
randsubst(verify(out), [[out(rire), ragingifire), 0.2, 'Unfortunately the fire has flared 
up again.']]) 

randsubst(test(gases), [[safe(gases), unsafe(gases), 0.2, 'The gases are unsafe.']]). 
randsubst(test(oxygen), [[safe(oxygen), unsafe(oxygen), 0.2, 'The oxygen is unsafe.']]). 
randsubst(desmoke, [out(fire), raging(fire), 0.1, 'The fire flared up again.'], 

[none, present(casualty), 0.1, 'A team member is injured.']]). 
randsubst(estimai (water), [out(fire), raging(fire), 0.05, The fire flared up again.'], 

[none, pressnt(casualty), 0.1, 'A team member is injured.']]). 
randsubst(dewater, [[out(fire), ragingCfire), 0.1, 'The fire flared up again.'], 

[none, present(casualty), 0.1, 'A team member is injured.']]). 
randsubst(store(equipment), [[out(fire), raging(fire), 0.05, 'The fire flared up again.']]). 

_rr__!__\ !•«___i__*n*»\ 




deletepostcondition(deenergize, [not(equipped(team))], [tested(gases), tested(oxygen), 
verified(out(fire))]). 

deletepostcondition(debrief, [location(fire)], Q). 
addpostcondition(deenergize, [not(equipped(team))], [present(casualty)]). 





addpostcondition(approach(fire), [not(equipped(team))], [present(casualty), smokey]) 
addpostcondition(test(gases), [raging(fire)], [tested(gases), unsafe(gases)]). 
addpostcondition(test(oxygen), [raging(fire)], [tested(oxygen), unsafe(oxygen)]). 

addpostcondition(0, [present(casualty)]. [dead(casuaIty)|APL]. 'Your casualty died!') > 
sing]emember(0, [go(repair, locker), go(fire), equip, deenergize, 
set(boundaries), approach(fire), extinguish, desmoke, estimate(water), 
dewater, test(gases), test(oxygen, tester), test(oxygen), set(reflash, watch), 
store(equipment), debrief, secure(reflash, watch)]), 
addpostcondition(0, APL) 
noprefi[set(boundaries), deenergize). 
noprefl[test(oxygen, tester), test(gases)). 
nopref(desmoke, dewater). 
nopref(desmoke, estimate(water)). 

start_state([location(repair, locker), raging(fire), smokey]). 

goair[verified(out(fire)), safe(gases), safefoxygen), not(equipped(team)), not(smokey), 
not(watery), not(watched(reflashing)), not(present(casuaIty)), 
not(unreplaced(casualty)), not(dead(casualty)), debriefed(team)]) 

/• Version of "go" for versions 20 and below of the tutor •/ 
go2 > start_state(S), goal(G). tutor(S, G) 
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